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SUMMARY 


This  is  a  report  of  work  accomplished  on  one  task  in  the  project  entitled 
Operational  Decision  Aids,  which  was  initiated  in  197^  by  the  Office  of  Naval 
Research  to  develop  aids  for  Navy  command  and  control  functions  and  make  them 
available  for  incorporation  in  the  design  of  future  systems.  In  previous  work  on 
the  ODA  program,  ISC  developed  and  tested  two  interactive  methods  of  selecting 
(a)  an  air  strike  path  through  a  field  of  ten  enemy  sensors  and  (b)  aircraft 
speeds  on  each  leg  of  the  path.  Both  methods  were  implemented  on  a  computer- 
driven,  four-color  vector  graphics  display.  Utility  for  each  candidate  strike 
path  was  computed  according  to  a  predete-mi ned  utility  function;  the  utility  func¬ 
tion  was  nonlinear  and  multi-modal.  With  one  method  called  Operator  Aided  Opti¬ 
mization  (0A0) ,  the  operator  guided  an  optimizing  nonlinear  programming  algorithm 
toward  a  solution.  With  the  other  method  called  Iterative  Manual  Optimization 
(IMO),  the  operator  selected  a  candidate  solution  and  the  computer  acted  as  a 
calculator  by  calculating  and  displaying  the  solution's  utility.  The  operator 
then  modified  the  previous  solution  in  light  of  what  was  learned  from  seeing 
its  utility.  The  process  was  repeated  until  the  operator  was  satisified  with  the 
utility  score  achieved.  An  experiment  using  sixteen  college  students  as  subjects 
did  not  conclusively  demonstrate  that  0A0  was  superior  to  IMO  for  problems  having 
the  relatively  low  level  of  complexity  of  the  experimental  problems. 

The  initial  phase  of  the  work  reported  in  this  document  was  a  continuation 
of  the  previous  work.  ISC's  aim  was  to  develop  and  experimentally  test  0A0-  and 
IMO-type  aids  that  would  account  for  most  of  the  complexity  of  real-world  problems 
by  t rea t i ng  most  of  the  problem  factors,  decision  dimensions,  and  utility  dimensions 
currently  deemed  important  by  air  strike  planners.  Inputs  about  air  strike  plan¬ 
ning  needs  and  perspectives  were  obtained  by  visits  to  strike  planners  at  Lemoore 
and  Whidbey  Island  Naval  Air  Stations  in  October  and  November  1 980  respectively. 
Strike  planners  from  these  Naval  Air  Stations  also  visited  ISC  in  March  1 98 1  and 
exercised  on  ISC's  display  system  the  operational  software  that  had  been  develop¬ 
ed  up  to  that  time.  The  report  documents  the  concept  and  software  that  were  de¬ 
veloped  for  the  liboratory  version  of  the  Air  Strike  Planning  System  (ASPS). 
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ODA  funds  for  FY  81  and  future  years  were  reprogrammed  in  early  1981.  A 
result  of  this  action  was  that  ISC  received  direction  to  devote  its  remaining 
contract  effort  to  planning  the  modification  and  transfer  of  the  developed 
technology  to  a  fieldable  desktop  version  of  ASPS.  Consequently,  ISC  developed 
during  the  second  phase  of  its  work  a  concept  for  a  fieldable  version  of  ASPS 
that  can  be  evaluated  at  the  squadron  level.  That  concept  is  documented  in  this 
report. 

During  the  latter  stages  of  work,  ISC  concentrated  on  two  key  problem 
areas  for  a  future  effort  to  develop  a  fieldable  planning  aid  for  evaluation. 

The  first  of  these  involves  the  following: 

1.  Storing  the  digital  terrain  data  that  would  be  needed  to 
represent  real  maps. 

2.  Development  of  an  algorithm  or  modification  of  an  existing 
algorithm  for  efficiently  calculating  terrain  masking  of 
hostile  weapons/sensors  at  specified  aircraft  altitude 
levels  above  ground  level. 

ISC  determined  that  digitized  map  products  derived  from  the  Defense  Mapping  Agency's 
Digital  Landmass  System  (DLMS)  Data  Base  are  available  and  applicable  to  ASPS.  The 
report  describes  several  algorithms  that  have  been  developed  for  other  programs  for 
calculating  terrain  masking  around  a  given  point. 

The  second  key  problem  is  selecting  the  most  cost-efficient  computer  and 
display  system  for  implementing  the  system  concept.  ISC  analyzed  the  capabilities 
of  state-of-the-art  graphics  displays.  A  combination  of  a  Megatek  7250  display  and 
a  Digital  Equipment  Corporation  MINC  11/23  desktop  computer  was  judged  to  be  the 
best  hardware  available  for  a  desktop  version  of  ASPS. 

Development  of  a  highly  interactive  ASPS  is  recommended  because  ASPS  will 
enable  planners  to  use  their  time  more  efficiently  than  is  possible  with  current 
manual  procedures  and  because  cost  of  ASPS  development  and  purchase  will  be  low. 

Low  development  cost  is  attributable  to  the  fact  that  much  of  the  design  work  has 
already  been  done.  Low  purchase  cost  is  due  to  the  recent  arrival  of  exception¬ 
ally  powerful,  low  cost  desktop  computers  on  the  market. 
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1.0  INTRODUCTION 


This  report  documents  the  results  of  a  two-phase  effort  to  field  a 
desktop  version  of  an  interactive  air  strike  planning  system  (ASPS)  for  eval¬ 
uation  at  the  squadron  level.  The  initial  phase  of  this  work  was  a  contin¬ 
uation  of  a  multi-year  participation  by  ISC  in  the  Operational  Decision  Aids 
program  of  ONR.  Effort  was  directed  during  the  second  phase  toward  a 
concept  design  that  adapted  a  subset  of  the  laboratory  ASPS  capability 
into  the  physical  and  computational  constraints  of  a  fieldable  and  relatively 
inexpensive  desktop  ASPS. 

1 . 1  BACKGROUND 

This  is  the  sixth  report  by  Integrated  Sciences  Corporation  (ISC) 
as  one  of  a  group  of  contractors  working  on  the  Operational  Decision  Aids 
(ODA)  program  directed  by  the  Office  of  Naval  Research.  The  ODA  program 
was  initiated  in  197^-  Its  intent  is  to  develop  a  variety  of  decision 
aids  and  test  and  evaluate  their  usefulness  to  the  Navy.  Although  the 
program  is  not  tied  to  any  specific  command  and  control  hardware  system, 
it  has  focused  on  the  functions  of  a  Task  Force  Commander  (TFC)  and  his 
staff.  The  role  of  ISC  has  been  to  find  ways  to  improve  user/machine 
communication  by  allocating  functions  between  use r and  machine  that  take 
advantage  of  their  respective  strengths. 

Under  a  previous  contract  ISC  developed  aids  that  were  used  to  test 
the  ability  of  humans  to  perceive  complex  functional  relationships  presented 
in  geometric/graphical  format  (References  I,  2,  and  3) on  a  computer-driven 
color  display.  The  problem  situation  for  which  the  aids  were  developed  was  the 
selection  of  (a)  an  air  strike  route  through  a  field  of  multiple  enemy  sensors 
and  (b)  aircraft  speeds  on  each  leg.  (Hereafter  in  this  report,  the  selection 
of  aircraft  flight  parameters  is  abbreviated  to  "route  planning.") 

One  of  the  ISC-developed  aids  was  called  Operator  Aided  Optimization 
(0A0)  using  a  Nonlinear  Programming  (NP)  algorithm  or  0A0/NP.  For  the 
0A0/NP  aid,  the  operator  controls  the  algorithm  by: 
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1.  Choosing  a  starting  point  for  the  algorithm. 

2.  Stopping  the  optimization  process  of  the  algorithm  when  the 
utility  calculated  by  a  mathematical  utility  function  shows 
diminishing  returns  versus  time. 

3.  Selecting  a  new  starting  point  in  another  region  of  the  solution 
space . 

Another  mode  of  aiding  the  operator,  Iterative  Manual  Optimization  ( I  MO )  ,  was 
also  developed.  With  IMO,  an  operator  inputs  a  solution  consisting  of  the 
route  legs  and  speeds  on  each  leg.  The  computer  then  calculates  and  displays 
the  solution's  utility  and  does  nothing  more  until  the  next  change  to  the  route 
is  input  by  the  operator.  Thus,  with  IMO,  the  computer  acts  as  a  calculator 
and  all  optimization  is  done  by  the  operator. 

An  experiment  was  performed  to  determine  how  closely  operator  perform¬ 
ance  using  IMO  on  a  set  of  experimental  problems  would  match  performance 

using  OAO/NP.  The  experiment  was  aimed  at  shedding  light  on  the  question 
of  the  importance  of  an  optimizing  algorithm  as  part  of  an  aid  to  solving 
a  problem  having  a  multimodal,  unsymmetric,  nonlinear  criterion  function. 

The  results  showed  that  operators  using  IMO  achieved  an  average  score 
of  98.1  utility  points  by  the  end  of  the  15-minute  experimental  problems, 
whereas  the  average  score  was  99-**  using  OAO/NP.  The  inference  drawn  from 
these  results  was  that  an  optimizing  algorithm  does  not  greatly  improve 
performance  for  problems  having  the  level  of  complexity  of  the  experimental 
problems.  However,  even  for  problems  of  th  i  s moderate  complexity,  use  of 
an  optimizing  algorithm  is  worthwhile  if  its  software  cost  is  low  and  there 
is  wide  agreement  among  operators  about  the  form  and  specific  parameters 
of  the  utility  function.  The  reason  is  that  operators  prefer  using  an 
algorithm  because  it  makes  the  task  simpler  and  less  tiring. 


In  many  situations  where  a  planning  aid  wi t t  be  useful,  it  will  not 
be  possible  to  pre-specify  a  universally  acceptable  form  and  parameters  of 
a  utility  function  because: 

1.  The  importance  of  utility  dimensions  will  vary  from 
one  tactical  situation  to  another  in  the  mind  of  a 
single  decision  maker. 

2.  Different  decision  makers  will  have  different  perceptions 
of  what  constitutes  utility. 

It  is  natural  to  ask  whether  optimizing  algorithms  have  a  place  in  aids  for 
these  situations.  ISC  believes  they  do.  Our  reasoning  begins  with  the  idea 
that,  in  these  cases,  the  planning  aid  must  be  designed  to  do  one  of  the 
fol lowing: 

1.  Allow  the  operator  to  select  utility  dimensions  to 
be  included  in  an  overall  criterion  and  to  specify 
mathematical  forms  for  combining  dimensions  and 
weights  for  each  dimension.  (It's  difficult  to  do  this 
well.) 

2.  Be  free  of  machine  calculation  of  an  overall  utility 
value.  (The  operator  mentally  combines  the  values 
along  the  utility  dimensions.) 

If  (l)  above  is  successfully  implemented  with  mathemat i ca I  1 y  tractable  func¬ 
tions  to  the  satisfaction  of  end  users,  then  it  is  certainly  reasonable 
to  allow  operator  guided  use  of  a  general  purpose  optimizing  algorithm. 

If  (2)  above  is  the  more  desirable  approach,  then  it  is  reasonable  to 
allow  the  operator  to  guide  an  optimizing  algorithm  along  a  single  utility 
dimension  at  a  time  and  let  values  along  other  dimensions  fall  where  they 
may.  In  this  case  the  operator  can  converge  on  the  best  solution  across 
multiple  utility  dimensions  through  an  iterative  process. 

1.2  CURRENT  WORK 

The  real  world  of  air  strike  planning  is  more  complex  than  the 
problem  used  to  compare  the  0A0  and  IMO  concepts.  Important  real-world 
considerations  are  listed  below: 
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Problem  Factors 


•  capabilities  and  location  of  enemy  sensors 

•  capabilities  and  locations  of  enemy  missiles 

•  capabilities  of  enemy  fighters  and  locations  of  their  bases 

•  capabilities  and  locations  of  enemy  anti-aircraft  guns 

•  change  in  location  of  enemy  defense  forces  during  the  flight 
time  of  the  air  strike 

•  terrain  topography 


Decision  Dimensions 


•  x,y  locations  of  path  legs 

•  speed  on  each  leg 

•  altitude  on  each  leg 

•  when  to  use  on-board  jamming 
equipment 

•  where  to  direct  use  of  electronic 
warfare  a i rcraf t 

•  weapon  and  fuel  loading 

•  when  and  where  to  use  standoff  anti- 
radar  weapons 


Utility  Di mens i ons 


•  expected  damage  to s t r  i  ke  a i rcraf t  due 
to  enemy  defenses 

•  probability  of  strike  mission  success 

•  distance  between  target  and  strike 
aircraft  when  cumulative  detection 
probability  exceeds  x% 


The  I  HO  and  0A0  aids  tested  in  the  previous  work  did  not  account  for  all  of 
these  dimensions.  Consequently,  the  following  question  arose: 


Is  the  small  magnitude  of  the  performance  difference 
between  IMO  and  0A0  observed  in  the  study  due  to  the 
relative  simplicity  of  the  problems  to  be  solved? 

This  question  may  be  put  another  way: 


How  will  the  di'ffe.rence  in  operator  performance 
using  IMO-  and  OAO-type  aids  change  as  the  dimensions 
of  the  problem,  decision,  and  utility  function  increase? 


Performance  data  from  aids  and  experiments  designed  to  answer  this  question 
could  be  important  evidence  supporting  a  decision  by  R&D  program  managers 
to  concentrate  future  efforts  on  developing  one  of  the  aiding  concepts  in 
preference  to  the  other. 

Consequently,  the  original  aim  of  the  current  work  was  to  develop 
and  experimentally  test  0A0-  and  IMO-type  aids  that  would  account  for  most 
of  the  real-world  problem  factors,  decision  dimensions,  and  utility  dimensions 
currently  deemed  important  by  air  strike  planners.  ISC  project  members 
visited  A- 7  and  A-6  strike  planners  at  Lemoore  and  Whidbey  Island  Naval  Air 
Stations  in  October  and  November  1980  in  order  to  gain  understanding  of  the 
route  planning  problem  as  the  planners  see  it.  We  also  obtained  inputs 
concerning  the  planners'  preferences  for  features  and  character i s t ics  of  an 
aid.  This  information  provided  much  of  the  basis  for  our  initial  concept 
for  an  air  strike  planning  aid  (Reference  k) . 

ODA  funds  for  FY  81  and  future  years  were  reprogrammed  in  early  1 98 1 . 
The  ISC  air  strike  planning  concept  and  software  are  applicable  to  a  current 
fleet  need;  consequently,  ISC  received  the  direction  to  devote  its  remaining 
contract  effort  to  planning  the  modification  and  transfer  of  the  developed 
technology  to  a  fieldable  desktop  Air  Strike  Planning  System. 

Our  initial  concept  for  the  aid  was  modified  as  a  result  of  additional 
information  obtained  from  strike  planners  in  February  and  March.  A  major 
new  input  was  received  from  Marine  Corps  aviators  at  Quantico  in  February. 

They  stressed  the  need  for  an  aid  to  planning  and  coordinating  actions  in 
the  target  area.  This  idea  had  been  mentioned  previously  at  Lemoore  and 
Whidbey,  but  it  had  not  been  stressed.  Additional  inputs  were  received  from 
strike  planners  who  visited  ISC  in  March,  reviewed  our  concept,  and  exercised 
on  our  display  system  the  operational  software  that  had  been  developed  up 
to  that  time.  The  reviewing  officers  were  strike  planners  from  Lemoore 
and  an  A-6  strike  planner  and  an  EA-6B  crew  member  from  Whidbey.  The  major 
new  input  from  these  visits  was  the  desirability  of  having  the  aid  show  a 
dynamic  replay  of  an  alternative.  As  before,  this  feature  had  been  mentioned 
earlier  by  strike  planners,  but  it  had  not  been  stressed. 
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During  the  latter  stages  of  work,  ISC  concentrated  on  two  key  problem 
areas  for  a  future  effort  to  develop  a  fieldable  planning  aid  for  evaluation. 

The  first  of  these  involves  the  following: 

1.  Storing  the  digital  terrain  data  that  would  be  needed  to 
represent  real  maps. 

2.  Development  of  an  algorithm  or  modification  of  an  existing 
algorithm  for  efficiently  calculating  terrain  masking  of 
hostile  weapons  and  sensors  at  specified  aircraft  altitude 
levels  above  ground  level. 

The  second  key  problem  is  selecting  the  most  cost-efficient  computer  and  display 
system  for  implementing  the  system  concept. 

Section  2  of  this  report  contains  our  concept  for  an  Air  Strike  Planning 
System  (ASPS)  that  embodies  most  of  the  features  recommended  by  the  Naval 
and  Marine  Corps  air  strike  planners  consulted  by  ISC.  Elements  of  this 
concept  have  been  translated  into  operational  software;  these  elements  are 
noted  in  Section  2.  Section  3  contains  the  results  of  our  investigations  into 
the  two  key  problems  summarized  in  the  previous  paragraph.  Our  recommendation 
for  development  of  a  highly  interactive  Air  Strike  Planning  System  (ASPS)  is 
in  Section  b.  Documentation  of  software  developed  during  this  project  is 
presented  in  the  appendices. 
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2.0  CONCEPTS  FOR  AN  AIR  STRIKE  PLANNING  SYSTEM  (ASPS) 


A  concept  and  software  for  a  laboratory  version  of  an  air  strike  plan¬ 
ning  system  were  developed  during  the  initial  phase  of  the  contract.  The 
laboratory  version  was  to  be  used  to  test  hypotheses  about  the  performance  of 
planners  on  problems  that  were  virtually  as  complex  as  real  planning  problems. 

The  most  important  results  of  the  tests  were  expected  to  be  the  comparisons 
between  performance  using  iterative  manual  optimization  and  operator  aided 
optimization.  The  concept  for  the  laboratory  version  of  ASPS  is  documented  in 
Subsection  2. 1 . 

A  fieidable  ASPS  for  evaluation  by  an  operational  squadron  requires 
capabilities  that  are  not  needed  for  the  laboratory  tests.  The  most  important 
such  capability  is  representation  of  actual  terrain  on  the  system's  computer- 
driven  display.  Subsection  2.2  describes: 

1.  Capabilities  that  would  be  different  in  the  fieidable  version 
from  the  laboratory  system  described  in  Subsection  2.1. 

2.  Capabilities  that  strike  planners  desire  but  that  are  not  needed 
to  test  hypotheses  about  0A0  and  IMO  in  a  laboratory  experiment. 

2.1  CONCEPT  FOR  A  LABORATORY  VERSION  OF  ASPS 

Elements  of  the  concept  which  have  been  implemented  in  operational  soft¬ 
ware  at  ISC  are  indicated  by  an  asterisk  within  parentheses  preceding  the  appli¬ 
cable  concept  elements,  i.e.,  (*).  The  software  structure  and  data  file  structure 
for  these  concept  elements  are  discussed  in  the  appendices.  The  data  file 
structure  for  the  completed  ASPS  system  will  be  enhanced  to  allow  for  additional 
capabilities,  but  we  expect  its  basic  structure  to  remain  the  same. 

The  hardware  for  the  laboratory  version  of  ASPS  includes  a  Sperry  Univac 
V-73  minicomputer,  a  four-color  vector  graphics  display,  a  32-key  special 
function  keyboard,  and  a  trackball.  The  special  function  keys  and  trackball  are 
the  instruments  which  allow  the  planner  to  communicate  with  the  computer.  Their 
specific  uses  are  explained  in  detail  below. 
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2.1.1  Problem  Setup  and  Controls 

(*)  2. 1.1.1  Terrain  Modeling;  Modeling  and  Plotting  Enemy  Defenses.  Scenario 

terrains  will  be  developed  off-line  and  stored  in  the  computer.  Terrain  features 
wi  1 1  include: 

1.  Four  Above-Ground-Level  (AGL)  values  of  altitudes 

2.  Ci ties 
3-  Forests 

4.  Lakes 

5.  Roads 


(*)  Locations  of  radar,  missile,  and  anti-aircraft  (AA)  gun  sites  will  also 
be  stored  with  terrain.  Contours  of  what  can  be  seen  for  each  AGL  on  a  1 i ne-of- 
sight  basis  from  each  radar,  gun,  and  missile  site  will  be  stored  and  displayed 
on  operator  request.  The  composite  contours  of  what  can  be  seen  for  each  of  the 
four  AGL's  will  also  be  stored  for  the  group  of  radars,  the  group  of  missile 
sites,  and  the  group  of  AA  gun  sites. 


(*)  Each  element  of  terrain  and  displayed  information  about  defenses  will 
have  a  display  "priority"  code  attached  to  it.  These  are: 


PRIORITY  I 


PRIORITY  I  I 


PRIORITY  III 


Terrain  features 
Radar  sites 
Missile  si tes 


Visually  significant 
points 

Radar  significant  points 


Detectability  contours  for 
radars 

Reachability  contours  for. 
missiles  and  AA  weapons 


(These  are  inputs  by  the 
operator.  See  Section 
2.1.2  on  Variable  Back¬ 
ground) 


Priority  I  information  will  always  be  displayed.  Priority  II  and  Priority  III 
information  will  be  displayed  by  operator  command. 
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(*)  2. 1.1.2  Beginning  Operations.  At  the  beginning  of  system  operation, 

the  following  menu  appears: 

"Select  MAP  1 
2 
3 

V 

The  operator  indexes  a  cursor  to  the  desired  map  and  then  pushes  ACCEPT.'  The 
screen  shows  Priority  I  information,  namely,  the  radar  and  missile  sites,  and 
the  physical  terrain. 

(*)  After  selecting  the  map  from  the  menu,  the  operator  uses  the  number  pad 
to  input  the  plan  number.  (See  Figure  1.)  A  message  indicating  the  number  of 
alternative  plans  already  stored  appears  below  the  screen.  For  each  map,  Plan  1 
is  always  the  basic  map  without  significant  points  or  path.  (If  only  the  map 
exists  without  any  plans,  then  the  user  will  not  be  asked  for  a  plan  number  but, 
instead,  will  be  placed  in  the  Director  Mode).  After  inputting  and  accepting 
the  plan  number,  the  path  and  significant  points  will  be  displayed.  The  user  is 
now  in  the  Director  Mode. 

(*)  2. 1.1.3  Pi  rector  Mode.  The  Director  Mode  controls  the  flow  of  the  pro¬ 

gram  as  specified  by  the  operator.  The  active  special  function  keys  are  lighted 
and  await  a  user  response.  The  key  pressed  specifies  the  next  activity  to  be 
worked  upon  by  the  operator. 

(*)  Throughout  all  procedures,  the  latitude  and  longitude  position  of  the 
cursor  will  be  displayed  whenever  the  cursor  appears  on  the  screen.  Only  those 
keys  which  are  lighted  will  be  active  at  any  time  during  the  flow  of  the  program. 

'The  number  of  maps  available  is  limited  only  by  computer  memory, 
o 

A  plan  is  defined  to  be  a  path,  speed,  and  altitude  for  each  aircraft 
type  in  the  strike  plan.  The  plan  for  strikes  including  EA-6B  aircraft  in¬ 
cludes  the  points  in  the  path  where  electronic  warfare  equipment  is  turned 
on. 
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2. 1.1. A  Initialization.  The  user  is  given  the  opportunity  to  initia¬ 
lize  certain  constraints  and  inputs  in  the  program  such  as  fuel  allocation, 
amount  of  fuel  at  recovery,  and  local  time  at  beginning  of  the  mission.  There 
is  an  IN1T  key  if  he  wishes  to  make  changes;  otherwise,  default  values  will  be 
used. 

(A)  2. 1.1.5  Screen  Layout,  Symbology,  and  Special  Function  Keys.  Figure  2 

shows  the  preliminary  screen  layout  for  the  system.  The  display  screen  is  laid 
out  with  the  map  in  the  center  and  miscellaneous  information  around  the  sides. 
The  miscellaneous  information  includes  menus,  task  and  error  messages,  latitude 
and  longitude  position  of  the  cursor,  the  current  mode,  a  table  of  leg  speeds 
and  AGL's  along  the  path,  and  other  pertinent  information.  Table  1  describes 
the  symbol  and  line  conventions  used  in  the  ASPS  program.  Figure  3  shows  the 
layout  of  the  special  function  keyboard. 

2.1.2  Variable  Background 

(*)  The  user  is  given  the  capacity  to  add  elements  which  he  considers  impor¬ 
tant  to  the  map.  There  are  two  types  of  these,  namely,  radar  significant  points 
(RSP)  and  visual  significant  points  (VSP) .  The  RSP's  are  points  detectable  by 
radar  and  VSP's  are  points  that  can  be  seen  visually.  These  types  of  points 
might  be  relevant  when  selecting  the  path  to  and  from  the  target  area. 

(*)  When  the  operator  presses  SIGNIFICANT  POINTS  key,  a  cursor  appears  on 
the  screen  and  is  maneuvered  with  the  trackball.  All  radar  significant  points 
are  located,  followed  by  visually  significant  points.  The  operator  moves  the 
cursor  to  the  desired  location  and  presses  the  ACCEPT  key.  An  "RO"  appears  at 
that  position.  He  moves  the  cursor  to  the  location  for  the  next  radar  signi¬ 
ficant  poi nt  and  ACCEPTS,  which  displays  an  "Rl".  This  process  continues  up  to 
a  maximum  of  ten  radar  significant  points.  If  the  RETURN  key  is  pressed  before 
ten  radar  significant  points  are  located,  the  user  will  then  be  asked  to  locate 
the  visually  significant  points. 
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Table  I .  TABLE  OF  SYMBOLS 


Symbol/Line  Type 


Descr ipt ion 


Color 


Launch  Point 


Red 


Target  point 

Recovery  Point 
Way  Point 

SAM  Site 


Sensor  S i te 


Red 


Red 

Green 


Orange 


Orange 


Ri  i  =  0, . . 

..9 

Radar  Significant  Point 

Ye  1 1 ow 

Vi  i  =  0, . . 

.,9 

Visually  Significant  Point 

Y  e 1  low 

0 

Cursor 

Yel low 

Sol  id  Line 

Path 

Green 

Dash-Dot  Line 

Line  Connecting  Range 
and  Bearing  Reference 

Point  to  Cursor 

Red 

Dashed  Line 

Sensor  Contours 

Red 

Dash- Dot  Line 

Shore  1 i ne 

Green 

Dotted  Line 

Hills 

Yel low 

Dash-Dot  L  i  ne 

Ci  ty 

Yel low 
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(■'•)  The  process  for  visually  significant  points  is  the  same  as  for  radar 
significant  points.  A  "VO",  "VI",  etc.  appears  on  the  screen  identifying  the 
locations  of  the  visually  significant  points.  Pressing  the  RETURN  key  will 
return  control  to  the  Director  Mode. 

2.1.3  Path  Manipulation  -  IMP 

This  section  describes  how  to  change  the  path  and  path  features.  The 
basic  idea  is  to  find  the  path  which  yields  the  best  value  of  the  figure  of 
merit  (FOM)  and  satisfies  the  fuel  constraint.  The  system  enables  the  user  to 
alter  the  route,  speed,  and  AGL  along  the  route  until  an  acceptable  FOM  is 
determined.  The  FOM  is  calculated  by  use  of  the  EVALUATE  key. 

(*)  2. 1.3.1  Key  "LTR".  There  is  a  key  "LTR",  which  stands  for  Launch  Point, 

Target  Point,  Recovery  Point.  When  this  key  is  pressed,  a  message  appears  below 
the  map: 

LOCATE  LAUNCH  POSITION  WITH  CURSOR. 

PRESS  'ACCEPT'  KEY  WHEN  CURSOR  IS  OVER  DESIRED  POSITION. 

A  cursor  is  moved  to  the  desired  launch  point  and  accepted  with  the  ACCEPT  key. 

A  symbol  "L"  will  appear  for  the  launch  point. 

(-••)  Similarly,  this  procedure  is  followed  in  turn  for  the  target  and  recovery 

nodes  with  the  appropriate  change  in  the  message.  A  "T"  appears  to  identify  the 
target  point  and  an  "R"  for  the  recovery  point. 

(*)  After  locating  the  recovery  point,  a  line  connecting  the  route  from 

launch  to  target  to  recovery  is  displayed.  A  Leg/Speed/AGL  Table  appears,  in¬ 
dicating  the  speed  and  altitude  for  each  respective  leg.  The  default  values 
are  360  knots  at  500  feet. 

(*)  After  the  recovery  position  is  identified,  a  menu  appears  that  enables 

the  user  to  specify  the  type  and  quantity  of  stores  carried  by  the  aircraft. 

The  menu  has  the  following  options: 


-15- 


"•  500  lb  Bomb 

•  1000  lb  Bomb 

•  Missile 

•  Fuel  tanks" 


The  user  ACCEPTS  he  desired  type  of  store  from  the  menu  and  then  uses  the  number 
pad  to  describe  the  quantity  to  be  carried  on  the  mission.  The  number  selection 
then  appears  to  the  right  of  the  menu  item.  When  the  user  presses  the  RETURN 
key,  the  numbers  of  each  desired  store  type  are  entered  in  the  master  data  file. 

If  the  user  wishes  to  change  the  quantity  of  a  previously  selected  type,  then 
the  user  indexes  to  the  desired  type  and  enters  the  desired  quantity  on  the  number 
pad.  This  overrides  the  previously  stored  number. 


(*)  2. 1.3.2  Key  "CHANGE  PATH".  The  CHANGE  PATH  key  allows  the  user  to  select 

a  waypoint  that  he  intends  to  alter.  The  following  message  appears: 

--  SELECT  NODE  -- 

USE  TRACK  BALL  TO  POSITION  THE  CURSOR  OVER  THE 
DESIRED  NODE  AND  PRESS  THE  ‘ACCEPT’  KEY. 

Figure  A  shows  a  path  which  has  been  manipulated  using  the  CHANGE  PATH  mode. 

(*)  A  cursor  which  is  moved  by  the  trackball  appears  in  the  scenario.  When 

the  cursor  is  moved  over  one  of  the  nodes,  the  node  blinks  and  the  ACCEPT  key 
is  activated.  Pressing  the  ACCEPT  key  displays  the  menu: 

"•  Add  Node 

•  Delete  Node 

•  Move  Node 

•  Change  Leg  Speed 

•  Change  Leg  AGL 

•  Change  Stores" 

A  menu  cursor  moves  to  the  next  option  in  the  list  each  time  the  REJECT  key  is 
pressed.  When  the  cursor  is  at  the  option  desired,  pressing  the  ACCEPT  key  will 
select  it.  The  only  option  available  for  the  recovery  node  is  "Move  Node."  The 
CHANGE  PATH  key  is  active  only  if  the  launch,  target,  and  recovery  points  exist. 
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( * )  Add  Node 


When  this  option  is  selected,  a  new  waypoint  appears  halfway  between 
the  current  node  and  the  next  along  the  flight  path.  Also,  a  position  in  the 
Leg/Speed/AGL  Table  appears  for  the  leg  following  the  new  waypoint.  (See 
Table  2  for  an  illustration.)  In  general,  this  is  used  in  conjunction  with  Move 
Node  to  position  the  new  node.  After  a  node  has  been  added,  the  user  returns 
to  CHANGE  PATH. 

(•')  Deleting  the  last  selected  node  can  be  accomplished  by  ACCEPTing  the 
Delete  Node  option  from  the  menu.  This  causes  the  node  to  be  deleted,  the 
path  connected  to  its  neighboring  nodes,  and  the  corresponding  leg  eliminated 
from  the  Leg/Speed/AGL  Table.  (See  Table  3  for  an  illustration.)  The  Launch, 
Target,  and  Recovery  points  cannot  be  deleted.  Immediately  after  Delete  Node 
is  ACCEPTed,  the  user  returns  to  CHANGE  PATH  mode. 

Table  3-  Illustration  of  What  Happens  When  a  Waypoint  is  Deleted. 


Leg 

OLD  TABLE 

(Node  3  is  to  be  deleted.) 

Spanning  Waypoints  Speed 

AGL 

Leg 

NEW  TABLE 

Spanning  Waypoints 

Speed 

AGL 

1 

N1  *  N2 

480 

500 

1 

N,  -  N2 

480 

500 

2 

n2  -  n3 

300 

200 

2 

N2  -  N^ 

300 

200 

3 

N3  -  N„ 

360 

100 

3 

N4  '  N5 

420 

500 

4 

\  -  N5 

420 

500 

( * )  Move  Node 

When  this  item  is  accepted  from  the  menu,  the  node  to  be  moved  remains 
blinking  and  a  message  below  the  scenario  appears: 

--  MOVE  NODE  — 

MOVE  NODE  TO  DESIRED  POSITION  AND  PRESS  'ACCEPT.1 
'RETURN'  KEY  REPOSITIONS  NODE  TO  INITIAL  LOCATION. 
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Table  2.  Illustration  of  What  Happens  When  a  Waypoint  is  Added. 


OLD  TABLE  (A  new  node  is  to  be  added  between 
nodes  3  6  ) 


Leg 

Spanning  Waypoints 

Speed 

AGL 

1 

",  -  "2 

360 

1000 

2 

"2  -"3 

It20 

500 

3 

"3  -  % 

\  -  "5 

NEW  TABLE 

480 

200 

It 

540 

1000 

Leg 

Spanning  Waypoints 

Speed 

AGL 

1 

N  -  N 

360 

1000 

2 

n2  -  n3 

N3  "  N3.5 

360 

1000 

3 

480 

200 

it 

N3.5  ' 

480 

200 

5 

N,  -  N 

540 

1000 

(*)  If  an  attempt  to  add  a  node  too  close  to  neighboring  nodes  is  made, 
an  error  message  appears: 

--  ERROR  -- 

WAYPOINT  NOT  ADDED  SINCE  IT  LIES  TOO  CLOSE  TO 
SURROUNDING  WAYPOINTS! 

PRESS  'RETURN'  KEY  TO  CONTINUE... 

(-)  If  an  attempt  is  made  to  add  more  than  ten  way  points,  the  following 
error  message  appears: 

--  ERROR  -- 

THE  MAXIMUM  ALLOWABLE  WAY  POINTS  -10-  HAS 
BEEN  EXCEEDED. 

PRESS  'RETURN'  KEY  TO  CONTINUE... 

If  either  of  these  messages  appear,  pressing  RETURN  automatically  puts  the 
user  into  CHANGE  PATH  mode. 


I 

I 


i 


1 


The  node  can  be  moved  around  the  map  with  the  trackball.  Pressing  the  ACCEPT 
key  fixes  its  location  and  returns  the  user  to  the  CHANGE  PATH  mode.  If  the 
user  moves  the  node  but  wishes  to  return  it  to  its  original  position,  then  the 
RETURN  key  should  be  pressed.  The  node  will  return  to  its  starting  position 
and  the  user  will  be  in  the  CHANGE  PATH  mode. 


( * )  Change  Leg  Speed 

When  this  option  is  ACCEPTed,  the  leg,  preceding  node,  and  corresponding 
entry  in  the  Leg/Speed/AGL  Table  will  blink  and  the  following  menu  appears: 

"•  SPEED  I  =  300  KNOTS 

•  I  I  =  360 

•  III  =  *)20 

•  IV  =  1*80 

•  V  =  5^0" 

When  the  desired  speed  for  that  leg  is  ACCEPTed,  the  Leg/Speed/AGL  Table  will 
reflect  the  change  in  its  corresponding  entry,  and  the  user  is  returned  to  the 
CHANGE  PATH  mode.  If  no  change  is  desired,  the  RETURN  key  puts  the  user  into 
the  CHANGE  PATH  mode. 


(*)  Change  Leg  Altitude 

This  procedure  is  very  similar  to  Change  Leg  Speed.  The  following  menu 

appears : 

I  =  250  FEET 

I  I  =  500  . 

Ill  =  750 
IV  =  1000" 


"•  AGL 


Pilots  almost  exclusively  use  integer  mul  tiples  of  60  knots  because  time 
and  distance  calculations  are  simple  to  make.  For  example,  1*80  knots  corresponds 
to  eight  nautical  miles  per  minute.  If  a  leg  is  36  nbi les  long,  the  time  between 
turning  points  is  *4  1/2  minutes.  During  the  mission 'the  pilot  can  therefore  use 
his  watch  as  an  aid  to  determining  when  to  turn.  Thus,  integer  multiples  of 
60  knots  are  the  only  planning  choices  needed  for  the'  aid. 
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When  an  item  is  ACCEPTed,  the  corresponding  altitude  entry  in  the  Leg/Speed/AGL 
Table  is  changed  and  the  user  returns  to  the  CHANGE  PATH  mode.  Pressing  the 
RETURN  key  leaves  the  altitude  unchanged  and  returns  the  user  to  the  CHANGE 
PATH  mode. 

2. 1.3- 3  Inputs  for  Electronic  Warfare  (EW)  Aircraft.  Key  "EW  A/C" 
brings  up  the  following  menu: 

"ROUTE 

•  Same  Route  as  Attack  a/c 

•  Different  Route" 

If  the  operator  ACCEPTS  "Same  Route,"  then  the  program  will  check  that  speed  con¬ 
straints  are  not  violated  and  store  the  same  route  for  the  EW  aircraft  as  already 
planned  for  attack  aircraft.  If  operator  ACCEPTS  "Different  Path,"  then  the 
operator  defines  the  EW  aircraft  route  in  the  same  way  as  was  done  for  the  strike 
aircraft.  At  any  point  along  the  route  the  operator  may  activate  or  deactivate 
electronic  warfare  equipment  aboard  the  EW  aircraft.  The  program  calculates  the 
degradation  effect  of  this  equipment  on  each  enemy  defense  system  and  the  joint 
effect  on  overlapping  systems. 

2.1.3- *!  Key  "EVALUATE".  There  is  an  EVALUATE  key.  The  user  selects 
with  the  cursor,  the  beginning  and  ending  node  for  which  a  Figure  of  Merit  (FOM) 
will  be  calculated.  The  computer  then  calculates  the  value  of  the  FOM  for  the 
user's  Iterative  Manual  Optimization  (IMO)  solution  and  displays  the  local  time 
of  arrival  at  each  waypoint,  the  fuel  consumed  for  each  leg,  and  the  FOM  for 
each  leg. 

2.1. A  Operator  Aided  Optimization  (0A0) 


2.1. A. I  Overview  of  0A0.  Instead  of  using  the  IMO  trial -and-error  method 
of  finding  the  best  path,  speed,  and  AGL  to  the  target,  the  operator  can  have  the 
computer  use  dynamic  programming  procedures  to  calculate  the  optimal  route.  First, 
the  user  defines  a  corridor  boundary  within  which  the  optimization  is  to  occur. 
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Next,  a  grid  whose  size  is  determined  by  the  operator,  is  superimposed  over  the 
region.  Finally,  constraints  on  the  speed  and  AGLs  over  the  region  being  opti¬ 
mized  are  input  by  the  operator.  The  optimal  route  between  grid  points  for  the 
given  constraints  is  calculated  and  displayed  by  the  computer.  The  operator  can 
then  modify  the  route  (with  the  CHANGE  PATH  key)  to  make  it  practical,  yet  follow 
the  guidelines  set  by  the  optimal  path.  This  user/machine  interaction  has  led 
to  the  name  "operator  aided  optimization."  The  operator  can  use  the  AFOM  key  to 
ask  the  computer  to  define  a  region  within  which  the  routes  are  less  than  optimal, 
but  still  within  an  acceptable  percentage  of  the  optimal  FOM. 

2. 1.4.2  Key  "OPTIMIZE".  The  following,  (a)  -  (d) ,  happen  in  sequence: 

(a)  "Corridor  Boundary" 

The  user  first  must  select  an  entry  and  exit  node  on  an  already-defined 

route.  A  closed  contour  is  drawn  using  the  trackball  and  ACCEPT  key.  The  entry 

and  exit  nodes  exist  along  the  boundary.  When  the  contour  is  finished,  the  mes¬ 
sage,  "Accept  or  Reject  Corridor,"  appears.  If  the  operator  presses  REJECT,  the 
boundary  is  erased  from  the  screen  and  the  user  must  define  a  new  corridor.  If 
the  ACCEPT  key  is  pressed,  then  the  corridor  is  set  and  the  user  then  proceeds 
to  the  next  step. 

(b)  "Grid  Size" 

The  operator  must  now  select  a  grid  size  from  the  following  menu: 

"•  Coarse 

•  Medium 

•  Fine" 

The  coarse  size  yields  a  solution  which  is  obtained  more  quickly  but  is  less 
precisely  optimal  than  the  others.  Now  the  user  must  specify  the  speed  con¬ 
straints. 
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(c) 


"Speeds" 


The  following  menu  appears: 

"•  300 

•  360 

•  420 

•  480 

•  540" 

All  speeds  ACCEPTed  are  considered  by  the  dynamic  programming  algorithm  when 
it  is  calculating  the  optimal  solution,  i.e.,  different  legs  may  have  different 
speeds,  chosen  from  the  list  of  ACCEPTed  speeds. 

(d)  "AGL's" 

A  menu  of  AGL's  now  is  displayed.  All  AGL's  ACCEPTed  by  the  operator 
are  considered  by  the  dynamic  programming  algorithm  when  it  is  calculating  the 
optimal  solution. 

The  computer  now  calculates  and  displays  the  optimal  plan  between  the 
corridor  entry  and  exit  points  for  the  set  of  constraints  (corridor  boundary, 
grid  size,  speeds,  and  AGL's).  The  display  shows  the  route,  AGL  for  each  leg, 
speed  for  each  leg,  and  the  cumulative  values  of  the  Figure  of  Merit  (F0M)  at 
the  end  of  each  leg.  The  "optimal"  plan  will  usually  not  be  one  that  is  practi¬ 
cally  navigable  from  a  strike  leader's  point  of  view.  Therefore,  the  planner 
must  now  input  a  modified  plan.  This  is  done  by  entering  the  CHANGE  PATH  mode 
and  inputting  a  feasible  approximation  to  the  "optimal"  plan. 

2. 1.4.3  "AFOM".  Pressing  this  key  brings  up  the  prompt,  "Use  number 
pad  to  input  acceptable  degradation  percentage  in  F0M."  When  the  user  has  in¬ 
put  the  desired  percentage,  the  computer  calculates  and  draws  the  boundary 
around  the  region  that  contains  solutions  whose  F0M  values  lie  between  (a)  optimal 
and  (b)  optimal  -  AFOM. 
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The  ASPS  program  provides  several  operator  aids  to  be  used  when  needed. 
They  don't  affect  the  analysis  but  will  be  useful  as  aids  for  planning  the 
airstrike.  These  aids  can  be  categorized  into  two  groups:  modal  and  non-modal. 

(*)  The  non-modal  aids  are  the  R&B  key  and  DECLUTTER  key.  The  R&B  key  allows 
the  user  to  identify  the  distance  and  angle  of  the  cursor  from  a  reference  point. 
The  DECLUTTER  key  allows  the  user  to  blank  out  contours  and/or  significant  points 
from  the  screen. 

The  modal  aids  are  the  Histogram  Mode  and  Contours  Mode.  The  Histogram 
Mode  shows  a  histogram  of  the  fuel  consumed  and  FOM  for  each  leg  along  the 
flight  path.  The  Contours  Mode  allows  the  user  to  display  contours  that  show 
for  a  desired  AGL  the  outer  limits  of  defense  capability  for  hostile  sensors, 
surface  to  air  missiles  (SAM's),  and  ant  i -a i rcraf t  (AA)  guns. 

(*)  2.1.5- 1  Key  "R&B".  The  RANGE/BEARING  key  is  active  whenever  the  operator 

is  in  the  mode  that  uses  the  cursor.  The  following  message  appears: 

Above  the  scenario: 

RANGE  =  MILES 
BEARING  =  DEGREES 

Below  the  scenario: 

--  RANGE  AND  BEARING  — 

SELECT  REFERENCE  POINT  WITH  CURSOR 
PRESS  'ACCEPT'  KEY  TO  FIX  REFERENCE  POINT 
PRESS  'RETURN'  KEY  TO  EXIT. 

The  cursor  is  moved  with  the  trackball  to  the  desired  reference  point  and  the 
ACCEPT  key  is  pressed. 

(*)  As  the  cursor  is  moved,  a  line  is  attached  from  the  reference  point  to 
the  cursor.  The  range  (in  nautical  miles)  and  bearing  (from  north)  are  measured 
from  the  cursor  to  the  reference  point  and  are  continually  updated  and  displayed. 


This  process  continues  as  the  user  proceeds  in  the  mode  from  which  RANGE/BEARING 
was  called.  The  range  and  bearing  are  turned  off  when  the  cursor  position  is 
ACCEPTed  or  the  mode  has  been  exited.  If  the  user  is  in  the  CHANGE  PATH  mode 
and  has  selected  the  "Move  Node"  option,  the  displayed  range  and  bearing  figures 
are  calculated  from  the  moving  node  instead  of  the  cursor.  (See  Figure  5*) 

(*)  2. 1.5.2  Key  "DECLUTTER" ■  There  is  a  "DECLUTTER"  key.  This  key  allows 

the  user  to  display  selected  contours  and  significant  points.  The  "Declutter 
Key"  works  on  a  cycle  of  four  presses.  Each  press  will,  in  turn,  perform  the 
following  functions: 

1.  Shows  Terrain,  Significant  Points  and  Contours 

2.  Shows  Terrain  and  Significant  Points 

3.  Shows  Terrain  and  Contours 

k.  Shows  Terrain  Only. 

2. 1.5*3  Key  "HISTOGRAM".  After  the  computer  has  calculated  the  value  of 
the  FOM  for  a  plan,  the  user  may  choose  the  histogram  option  by  pressing  the  key 
with  this  name.  The  histogram  will  graphically  convey  to  the  user  the  value  of 
the  FOM  and  the  fuel  consumption  for  each  leg. 

2.1.5-**  Key  "CONTOURS".  This  key  enables  the  operator  to  see  displays  of 
defense  capability  contours.  The  options  are  given  on  the  following  menu: 

"Select  Contour  Option 

•  Sensors 

•  SAM/AA 

•  Both 

•  Composite 

•  Composite,  SAM,  AA" 

After  selecting  the  option,  the  operator  uses  the  number  pad  to  select  an 
AGL  between  1  and  h.  Figure  6  shows  contours  for  both  SAM  and  sensor  sites.  If 
no  contour  exists  for  a  particular  option  at  a  certain  AGL,  the  program  returns 
to  the  Director  Mode. 
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Sensors  Option  -  This  ailows  the  user  to  select  individual  sensors  to 
display  or  turn  off  their  contours,  or  to  turn  on/off  all  the  contours. 

SAM/AA  Option  -  The  user  sees  all  threat  level  contours  for  each  of  the 
SAM/AA  sites  at  the  given  AGL. 

Both  -  This  is  a  combination  of  the  above  two  options. 

Compos i te  -  This  shows  the  composite  contours  for  all  the  sensors. 
Composite,  SAM,  AA  -  This  option  displays  the  composite  along  with  the 
SAM  and  AA  contours. 

2.1.6  Data  File  Communication 

(*)  The  following  keys  are  the  only  keys  which  interact  with  data  files 
stored  on  disk.  The  STORE  key  takes  the  current  plan  and  puts  in  onto  disk, 
the  RECALL  key  brings  up  a  previously  constructed  plan  from  disk,  and  the  EXIT 
key  updates  the  Admin  data  file  (see  Appendix  B) . 

(*)  2.1.6. 1  Key  "STORE11.  Pressing  this  key  allows  the  user  to  save  work 

done.  When  this  key  is  pressed,  a  message  appears  below  the  screen  indicating 
the  available  plans  and  the  current  plan  number.  "Plan"  1  is  restricted  to  be 
the  map  only  and  is  not  available  for  storage.  As  many  as  five  plans  for  each 
map  can  be  saved.  Caution:  If  a  plan  is  stored  in  a  plan  number  which  is 
different  from  the  one  where  it  was  recalled,  then  information  previously  resid¬ 
ing  in  the  second  plan  location  will  be  lost.  For  example,  if  a  plan  is  recalled 
from  plan  location  # 2 ,  revised,  and  stored  in  plan  location  ftk,  then  information 
previously  stored  in  plan  location  ttb  will  be  lost. 

(-')  2.  1.6.2  Key  "RECALL".  There  is  a  RECALL  PLAN  key.  When  this  key 

is  pressed,  the  following  message  appears: 

LAST  PLAN  IS  NUMBER  (e.g.  ,  k) 

BEST  PLAN  IS  NUMBER  (e.g. ,  3) 

SELECT  PLAN  (l-N)  USING  NUMBER  PAD 


v 
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N  is  the  number  of  plans  available  for  recall.  The  operator  uses  the  number 
pad  to  select  the  plan  number  he  wants  to  see.  The  procedure  is  similar  to 
that  described  in  Subsection  2.1.1,  Beginning  Operations.  If  the  RETURN  key 
is  pressed,  the  previous  plan  is  displayed. 

(*)  2. 1.6.3  Key  "EXIT".  The  EXIT  key  is  used  at  the  conclusion  of  the  plan¬ 

ning  session.  It  serves  two  purposes: 

1.  To  allow  for  normal  termination  of  the  ASPS  program 

2.  To  update  the  "Admin"  data  file. 

It  is  important  to  use  this  key  when  finished,  otherwise  the  next  planning  session 
may  not  properly  reflect  the  current  session's  work. 

2.1.7  System  Calculation  Capability 

The  system  will  have  the  following  calculation  capabilities: 

1.  Fuel  consumption  for  a  particular  aircraft  will  be  calculated  as  a 
function  of  speed,  altitude  and  drag  count  for  each  leg  of  a  route.  (The  model 
for  this  is  obtainable  from  COMLATWING  at  Lemoore  NAS.) 

2.  System  will  calculate  time  of  arrival  at  each  waypoint  in  terms  of 
local  time  and  time  from  launch. 

3.  The  Figure  of  Merit  (FOM)  will  be  calculated  for  each  user-input  (IMO) 
solution.  This  will  include  times  of  arrival  of  waypoints,  FOM  for  entire  route, 
and  elements  of  FOM  (e.g. ,  probability  of  survival)  for  each  leg  of  a  route. 

4.  System  will  compute  the  joint  capability  of  enemy  search  radars  at 
any  point  on  the  terrain.' 

5.  System  will  compute  the  joint  capability  of  enemy  missile  sites  at 
any  point  on  the  terrain. 

6.  System  will  compute  the  joint  capability  of  enemy  AA  guns  at  any 
point  on  the  terrain.' 

7.  System  wi 1 1  compute  degradations  to  radar  and  missile  performance  as 
a  function  of  EW  aircraft  position  over  time  of  mission. 

'The  dimensions  of  capability  for  each  type  of  defense  site  are  a  matter 
to  be  decided  in  consultation  with  end  users. 


8,  System  will  compute  the  dynamic  programming  solution  between  a 
user-designated  pair  of  points  after  the  user  has  input  the  constraints. 

9.  System  will  use  the  dynamic  programming  algorithm  to  compute  and 
display  the  corridor  containing  solutions  AFOM  poorer  than  the  "optimal"  solu¬ 
tions. 

10.  System  will  store  the  four  most  recent  solutions  and  the  best  solu¬ 
tion  to  date. 

2.2  CONCEPT  FOR  A  F I ELDABLE  VERSION  OF  ASPS 

As  noted  earlier,  this  subsection  describes: 

1.  Capabilities  that  would  be  different  in  the  fieldable  version  from 
the  corresponding  capabilities  in  the  laboratory  version  described  in  Subsection 
2.1.  Consequently,  descriptions  of  capabilities  which  would  be  the  same  in  the 
fieldable  version  as  in  the  laboratory  version  are  not  repeated  here. 

2.  Capabilities  that  strike  planners  desire  but  that  are  not  included 
in  the  laboratorv  version  because  they  are  not  needed  to  test  hypotheses  about 
0A0  and  IMO  in  a  laboratory  experiment. 

2.2.1  Problem  Setup 

2.2. 1.1  Type  of  Scenario.  At  the  beginning  of  a  session,  the  planner 
will  see  a  prompt  on  the  display: 

"Type  of  Scenario 

•  Land  Target 

•  Sea  Target" 

If  a  land  target  is  ACCEPTed  via  the  function  keyboard,  then  the  planner  proceeds 
to  select  the  desired  map  and  then  performs  the  initialization  step  covered  in 
Subsection  2.2.  1.2. 

If  a  sea  target  is  ACCEPTed,  the  user  must  then  establish  an  enemy  order 
of  battle.  This  is  done  by  selecting  an  enemy  ship  type  from  a  menu  and  then 
positioning  the  symbol  for  that  type  on  the  display  with  the  display  peripheral, 
e.g.,  trackball  or  joystick.  The  lat i tude/ long i tude  readout  of  the  symbol  at 
the  lower  right  of  the  display  will  enable  the  planner  to  position  the  ship. 

This  process  is  repeated  for  eachship  in  the  enemy  formation  or  disposition. 
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The  planner  may  now  define  single-ship  movements  or  the  movement  of 
a  multiple-ship  formation.  To  define  a  single-ship  movement,  the  planner  lo¬ 
cates  nodes  of  the  route  with  the  trackball  or  joystick.  When  the  route  is 
completely  drawn,  the  arrival  time  at  each  node  is  selected  by  inputting  a 
speed  of  advance  in  knots  on  the  number  pad.  To  define  a  formation  movement, 
the  planner  first  designates  the  members  of  the  formation  with  the  trackball 
or  joystick  and  then  designates  the  formation  guide.  The  formation  route  is 
drawn  from  the  location  of  the  formation  guide  in  the  same  manner  as  for  a  single¬ 
ship  movement  and  foramtion  speed  is  also  specified  the  same  way.  Routes  paral¬ 
lel  to  the  guide  ship  are  automatically  defined  for  the  other  ships  in  the  for¬ 
mation. 


2.2. 1.2  Initial i zat ion .  The  locations  of  enemy  airfields  are  added 
to  the  terrain  data  in  the  appropriate  map  file.  Types  of  interceptors  at  each 
airfield  are  stored  and  associated  with  the  airfield's  location.  All  other 
elements  of  in i t ia 1 i zat ion  remain  the  same  as  defined  for  the  laboratory  version 
of  ASPS. 


2.2. 1.3  Digi ti zed  Maps.  The  Defense  Mapping  Agency  (DMA)  has  digitized 
map  products  (Reference  5).  Off-line  processing  of  this  digitized  data  would 

be  done  using  an  al ready-ava i labl e  algorithm  to  calculate  and  store  topographic 
contours  and  coastline  for  a  region  of  interest.  Thus,  when  a  planner  requests 
a  particular  map  and  scale,  the  display  shows  the  topographic  contours  for  the 
region.  (Subsection  3-1  has  additional  information  about  DMA  map  data  and  their 
algorithm  that  calculates  topographic  contours.) 

2.2. 1.4  Display  of  Terrain  Features  and  Defense  Capability  Contours. 

The  contours  for  roads,  rivers,  lakes,  and  cities  in  a  region  of  interest  will  be 

drawn  off-line  prior  to  a  planning  session  and  the  points  defining  those  contours 

will  be  superimposed  on  the  topographic  contour  data.  Radar  significant  points 

(RSP's)  and  Visually  Significant  Points  (VSP's)  with  user-defined  labels  such 

as  f  VSP3  l  wi 1 1  be  designated  either  off-line  by  an  operations  or  intelligence 
(  Tower  1  ) 


staff  member  or  on-line  &y  the  planner.  They  will  be  superimposed  on  the  other 
terrain  data. 

Calculations  of  each  site's  defense  capability  contours'  will  be  based 
on  the  site's  basic  range  envelope  and  the  effects  of  terrain  masking  around  the 
site.  The  calculation  will  be  done  on-line  providing  that  the  execution  time 
does  not  cause  a  significant  delay  for  the  planner.  However,  calculation  and 
display  of  joint  capability  contours  for  multiple  sites  will  be. done  on-line. 
(Several  algorithms  for  calculating  terrain  masking  from  a  particular  point  using 
DMA  data  are  available.  See  Subsection  3.1  for  additional  information.) 

2.2.2  Variable  Background 

The  variable  background  elements  for  the  laboratory  version  of  ASPS  are: 

•  Visually  significant  points  (Declutter  priority  II) 

•  Radar  significant  points  (Declutter  priority  II) 

•  Detectability  contours  for  radars  (Declutter  priority  III) 

•  Reachability  contours  for  missiles  (Declutter  priority  III) 

and  AA  weapons 

For  land  targets,  the  fieldable  version  of  ASPS  will  have  a  display  of  a  reach¬ 
ability  circle  around  each  enemy  airfield  that  corresponds  to  the  combat  radius 
of  the  interceptor  type  designated  at  that  airfield.  For  the  war  at  sea  scenario, 
the  display  will  show  the  detectability  contours  for  seaborne  radars  as  a  func¬ 
tion  of  altitude  and  the  reachability  contours  for  seaborne  guns  and  missiles. 

Both  displays  will  have  declutter  priority  III. 

2.2.3  Route  Planning 

The  first  step  in  the  route  planning  process  will  be  designation  of  air¬ 
craft  type  used  on  the  route.  The  alternatives  available  in  a  production  version 
of  ASPS  would  probably  include  all  tactical  aircraft  in  the  Navy's  inventory.  A 

^The  dimensions  of  capability  for  each  type  of  defense  site  are  a  matter 
to  be  decided  in  consultation  with  end  users. 
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version  for  field  test  and  evaluation  would  probably  include  a  subset  of  these, 
such  as  A-6,  A-7,  and  EA-6B.  Depending  on  the  type  selected,  the  user  will  next 
designate  the  mission,  e.g.,  attack  or  tanker.  (The  mission  is  automat i ca 1 1 y 
electronic  warfare  when  EA-6B  is  selected.)  When  the  tanking  mission  is  selected, 
the  tanker  aircraft  automat ical ly  receives  a  standard  fuel  load  and  weapon  stores 
(if  any)  for  that  mission. 

If  the  attack  mission  is  designated,  then  the  next  step  is  selection  of 
stores.  Again,  a  production  version  of  ASPS  would  probably  include  all  stores 
available  for  the  aircraft  types  handled  by  the  aid.  A  version  for  field  test 
and  evaluation  would  probably  have  a  subset  of  these,  such  as  S00-  and  1000-pound 
bombs,  an  ai r-to-surface  missile,  external  fuel  tanks,  and  an  anti-radar  missile 
(ARM's).  All  of  the  above  steps  are  performed  using  the  function  keyboard  and 
displayed  menus  in  the  same  manner  as  described  in  Subsection  2.1. 

The  planner  will  then  plan  the  route  of  the  designated  aircraft  type 
and  mission  using  the  basic  procedures  for  iteractive  manual  optimization  (IMO) 
and/or  operator  aided  optimization  (0A0)  as  described  in  Subsection  2.1.  Addi¬ 
tional  features  in  the  fieldable  version  of  ASPS  are: 

1.  The  planner  may  designate  a  point  along  the  route  where  an 
anti-radar  missile  is  fired. 

2.  The  planner  may  designate  a  point  where  a  refueling  takes  place. 

The  computer  transfers  an  amount  of  fuel  to  the  attack  aircraft  which  is  lesser 
of  (a)  fuel  needed  to  top  off  the  attack  aircraft  or  (b)  fuel  aboard  tanker  air¬ 
craft  less  fuel  needed  by  tanker  aircraft  to  return  to  carrier. 

At  any  time  after  a  complete  route  is  established,  the  planner  may  elect 
to  see  a  dynamic  (movie-like)  replay  of  the  flight  over  mission  time.  This  will 
include  the  flight  of  ARM's  as  well  as  aircraft.  The  planner  may  store  a  plan 
for  one  aircraft  type  and  begin  to  plan  a  route  for  another  aircraft  that  over¬ 
laps  (in  time)  the  mission  of  the  previously  planned  route(s).  The  line  segments 
displaying  the  geographic  route  of  a  previous  plan  remain  on  the  screen  while 
the  next  plan  is  being  devised.  When  the  planner  elects  the  dynamic  replay  option 
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after  the  n  mission  has  been  planned,  there  will  be  an  option  to  see  the 
dynamic  replay  of  only  the  n  mission  or  the  simultaneous  replay  of  all 
missions  planned  for  this  map  area  thus  far. 

The  planner  will  also  have  the  option  to  designate  a  specific  defense 
site  which  is  to  be  deleted  from  the  enemy's  joint  capability.  A  revised  Fig¬ 
ure  of  Merit  (FOM)  for  the  plan  can  then  be  calculated  and  compared  to  the  FOM 
when  the  enemy  has  full  capability.  This  feature  will  help  in  assessing  need 
or  desirability  of  making  a  particular  site  the  object  of  an  attack. 

2.2.1*  Air  Strike  Target  Area  Planning  (ASTAP) 

The  basic  elements  of  the  ASTAP  mode  of  ASPS  are  shown  in  Figure  7-  The 
air  strike  planner  brings  to  the  problem  the  types  of  data  indicated.  These 
data  are  mission-specific  and  must  be  input  to  the  system  to  begin  the  planning 
session.  The  synoptic  data  relevant  to  strike  planning  in  general  are  already 
contained  in  the  system  bulk  memory.  It  is  accessed  as  needed  by  the  specific 
planner-supplied  mission  parameters.  During  the  problem  initialization  phase, 
the  planner  is  concerned  only  with  tactical  variables  important  to  the  mission. 

When  the  problem  is  initialized,  the  planner  begins  by  asking  a  series 
of  "what  if?"  questions  in  an  arbitrary  sequence.  ASTAP  does  not  force  the 
planner  to  follow  a  canned  sequence  of  procedures.  Instead,  the  planner  may  work 
through  the  solution  process  using  the  analysis  and  simulation  tools  provided  in 
a  sequence  that  seems  natural  to  him.  Aspects  of  the  problem  that  require  more 
analysis  may  easily  be  given  the  required  attention  emphasis. 

When  a  promising  plan  (or  partial  plan)  is  obtained,  the  planner  labels 
and  stores  it  for  future  recall.  An  ASTAP  plan  consists  basically  of  the 
fol lowing: 

•  Aircraft  (A/C)  tracks 

•  Ordnance  release  points 

•  Ordnance  effects 

•  Survivability  data 
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gure  /.  ASTAP  Overview 


An  example  of  the  format  is  shown  in  Figure  8.  Only  a  small  number  of  display 
elements  are  presented  to  limit  clutter.  Various  combinations  of  display  ele¬ 
ments  (such  as  aircraft  tracks,  AA  effectiveness  contours,  levels  of  map  data) 
may  be  displayed  by  means  of  a  special  function  key. 

Dynamic  replay  of  a  plan  shows  the  relative  positions  of  the  strike 
aircraft  and  their  ordnance  effects  (blast  debris,  wind-driven  smoke)  in  both 
time  and  space.  The  replay  may  be  stopped  at  any  point  to  examine  relative  air¬ 
craft  positions,  to  assess  safety  aspects  and  examine  potential  problems  due  to 
arrival  too  early  or  late  by  designated  aircraft. 

Figure  8  is  a  representation  of  a  strike  involving  three  aircraft  paths 
aimed  at  destroying  buildings  (Tl)  and  a  bridge  (T2) .  The  target  area  is  de¬ 
fined  by  two  AA  installations  whose  radii  of  fire  at  the  mission  altitudes  is 
shown.  The  double  tracks  indicate  above-ground  level  (AGL)  altitudes  in  excess 
of  a  designated  threshold,  e.g. ,  200  feet. 

The  basic  plan  calls  for  the  aircraft  along  Path  1  to  arrive  first,  stay¬ 
ing  outside  the  AA  radii  as  shown.  The  predicted  pop-up  and  ordnance  release 
points  (black  squares)  are  computed  by  ASTAP  using  planner  input/deployment  ma¬ 
neuvers,  aircraft  speeds,  ordnance  type,  and  approach  heading.  The  AA  installa¬ 
tions  will  have  their  attention  diverted  when  aircraft  along  Path  2  do  a  pop-up 
along  the  ridge  and  first  hit  AA1.  They  continue  along  the  shown  path  to  neutra¬ 
lize  the  AA2  installation.  The  aircraft  whose  prime  target  is  the  bridge  (T2) 
will  follow  closely  behind.  The  intention  is  to  time  the  strike  so  that  the 
Path  3  aircraft  are  close  enough  to  help  swamp  the  air  defenses,  but  not  close 
enough  to  interfere  or  be  exposed  to  i nterferences  by  the  blast  and  smoke  of  Path  1 
aircraft.  The  adequacy  of  the  specific  attributes  of  the  plan  are  determined  by 
the  planner  during  dynamic  display.  Modifications  to  the  plan  are  made  to  study 
the  sensitivity  of  any  part  of  the  plan  whose  successful  execution  is  dependent 
upon  executing  the  plan  within  a  timing  or  navation  accuracy  window. 

This  brief  description  gives  just  a  limited  glimpse  of  the  possibilities 
of  this  concept.  A  partial  list  of  ASTAP  functions  and  capabilities  is  in  Table  b. 
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Figure  8.  ASTAP  Display  Elements, 


Terrain  Contours 

R  i  ver 
Road 

Bu i I t-up  Area 
Low  AGL  A/C  Path 

High  AGL  A/C  Path 
Weapon  Release  Point 

AA  Limit 

Visually  Significant  Point 


NOTE:  This  shows  examples  of  all  the  types  of  displayed  information. 
They  would  normally  not  all  be  displayed  simultaneously. 
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Table  4.  ASTAP  Functions. 


•  3D  path  simulation  from  "distilled"  large  scale  models  and  test  results. 

•  Ordnance  release  point  computation 

•  Ordnance  effects  computation 

•  2D  A/C  path  designation  input  and  replay 

•  Survivability  computation  as  a  function  of  A/C  paths  and  AA  types  and 
locat i ons 

•  Computation  of  sighting  data  (ranges  and  bearings)  to  operator-designated 
points  to  coordinate  target  area  navigation 

•  Computation  and  display  of  AGL  values  as  a  function  of  designated  A/C 
speeds,  horizon  plane  tracks,  and  type  of  ordnance  deployment  maneuvers. 

•  Computation  and  display  of  ordnance  CEP's  as  a  function  of  attack  parameters 

•  Computation  of  fuel  consumption  as  a  function  of  changing  drag  count  and 
A/C  kinematics 

•  Dynamic  replay  of  current  and  stored  alternative  plans  with  stop-action 
and  add-on  analysis  capability. 

•  Automatic  monitoring  of  user  input  constraints  and  constraint  violation 
a lert i ng 
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2.2.6  Hard-Copy  Outputs 

The  planner  will  choose  the  preferred  plan  from  those  analyzed  at  the  con¬ 
clusion  of  a  session  with  ASPS.  The  user  may  request  a  hard  copy  of  the  plan 
elements  in  the  standard  format  on  a  knee-pad-sized  sheet  of  paper.  The  printed 
output  will  include  at  least  the  following: 

•  Geographic  coordinates  and  time  of  arrival  at  each  turning 
point  on  the  path 

0  Speed  and  altitude  for  each  path  leg 

•  Geographic  coordinates,  time  of  arrival,  and  altitude  at 
a  refueling  point 

•  Loadout  of  weapons  and  external  fuel  tanks 

•  Coordinates  of  ordnance  release  points 


3-0  INVESTIGATIONS  OF  CRITICAL  ASPECTS  OF  ASPS  DEVELOPMENT 


Creation  of  make-believe  terrain  is  acceptable  for  a  laboratory 
version  of  ASPS,  but  a  fieldable  ASPS  must  use  terrain  data  from  real  maps. 
Consequently,  ISC  conducted  an  investigation  to  learn  how  digital  terrain 
data  might  be  obtained  and  what  algorithms  are  available  for  performing  certain 
calculations  on  such  data.  The  results  of  this  work  are  given  in  Subsection 

3.1. 

Our  ONR  sponsor  and  air  strike  planners  consulted  by  ISC  expressed  a 
strong  preference  for  low-cost,  highly  portable  ASPS  hardware.  ISC  investi¬ 
gated  desk-top,  stand-alone  computer  and  display  systems  and  systems  consisting 
of  separate,  but  highly  portable  computer  and  display  subsystems.  The  results 
of  this  work  are  in  Subsection  3-2. 

3.1  DIGITIZED  MAPS 

There  are  basically  two  methods  of  obtaining  digitized  terrain  data: 

1.  The  do-it-yourself  method. 

2.  Use  of  digitized  map  products  from  the  Defense  Mapping  Agency 
(DMA). 

The  first  method  is  simply  manually  recording  the  terrain  properties  of  a  region 
on  a  cell-by-cell  basis  according  to  a  predtermined  data  format  for  each  cel). 
This  is  the  only  method  available  if  DMA  does  not  have  a  digitized  map  for  an 
area  of  interest  and  the  end  user  needs  the  map  before  DMA  can  meet  a  request 
for  it.  The  Marine  Corps  training  unit  that  operates  the  Tactical  Warfare 
Simulation,  Evaluation,  and  Anlaysis  System  (TWSEAS)  at  Camp  Pendleton  occa¬ 
sionally  does  its  own  digitizing  of  maps  which  are  used  in  TWSEAS. 

DMA  digitized  map  products  are  derived  from  the  Digital  Landmass 
System  (DLMS)  Data  Base  (Reference  5).  This  data  base  is  collected  at  two 
different  levels  which  are  defined  as  follows: 


Level  1 


1.  Terrain:  Relief  information  in  DMA  standard  digital  format 
with  each  cell  three  seconds  of  latitude  (303-81  feet)  by  three  seconds 
of  longitude. 

2.  Cultural  features:  A  generalized  description  and  portrayal,  in 
DMA  standard  digital  format,  of  planimetric  features.  The  Level  1  data  base 
is  intended  to  cover  large  expanses  of  the  earth's  surface  and  has  relatively 
large  minimum  size  requirements  for  portrayal  of  planimetric  features. 


Level  2 

1.  Terrain:  Relief  information  in  DMA  standard  digital  format 

with  each  cell  one  second  of  latitude  (101-3  feet)  by  one  second  of  longitude. 

2.  Cultural  features:  A  highly  detailed  description  and  portrayal, 
in  DMA  standard  digital  format,  of  planimetric  features.  The  Level  2  data 
base  is  intended  to  cover  small  areas  of  interest  and  has  small  minimum  size 
requirements  for  planimetric  features. 

An  important  consideration  for  ASPS  development  is  the  availability 
of  already-developed  computer  programs  for  calculating  topographic  contours 
and  for  calculating  masking  effects  of  terrain  around  a  given  point.  DMA 
has  two  applicable  programs.  One  program,  filed  as  "ULB  427"  at  the  DMA 
Aerospace  Center,  St.  Louis,  accepts  the  DMA  standard  format  for  digitized 
terrain  elevation  data  and  produces  a  topographic  contour  map  of  the  area.  The 
other  is  a  subroutine  called  "RTMASK"  within  the  program  filed  as  "ULB  437-" 
RTMASK  uses  the  output  of  ULB  427  and  produces  a  plot  that,  given  an  observer's 
geographic  position,  will  indicate  the  visibility  afforded  to  that  observer. 


Information  supplied  by  the  DMA  Aerospace  Center  led  to  several  other 
sources  of  algorithms  for  calculating  masking  effects  of  terrain.  One  of 
these  sources  is  work  done  by  Pattern  Analysis  and  Recognition  Corporation, 
Rome,  New  York,  for  the  Rome  Air  Development  Center.  Reference  6  documents 
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their  two  FORTRAN  algorithms  for  determining  what  areas  on  the  ground  are 
not  detectable  from  an  airborne  radar  due  to  terrain  masking.*  One  of 
-the  algorithms  uses  a  perspective  projection  approach  and  the  other  uses 
a  ray  tracing  approach.  DLMS  Level  1  data  from  DMA  are  the  input  to  their 
algorithms  and  the  algorithms  account  for  the  effects  of  earth  curvature  and 
atmospheric  refraction  of  the  radar  beam.  Core  requirements  and  execution 
speeds  on  an  XDS  Sigma  V  computer  for  several  sizes  of  geographic  areas  are 
given  in  Reference  6. 

Lincoln  Laboratory  at  the  Massachusetts  Institute  of  Technology  has 
a  set  of  programs  for  calculating  the  effects  of  terrain  masking  on  ground- 
based  radars  (Reference  7).  These  programs  are  written  in  PL/I  for  execution 
on  an  IBM  370  computer;  they  also  use  the  DLMS  Level  I  data  as  input.  The 
terrain  elevation  data  in  the  DLMS  data  base  is  converted  from  its  matrix 
form  to  a  polar  form  centered  on  the  radar  site.  This  is  done  for  each  eleva¬ 
tion  in  the  polar  grid  by  interpolating  from  the  four  nearest  elevations  in 
the  matrix  grid.  One  drawback  to  the  use  of  polar  representations  of  data 
is  the  reduction  in  the  density  of  data  points  as  range  increases  from  the 
origin.  Compensation  for  this  is  made  by  increasing  the  azimuthal  density 
of  data  points  as  range  increases  from  the  origin.  The  program  then  does 
a  simple  geometric  calculation  to  determine  those  points  in  the  polar  grid 
for  which  the  radar's  line  of  sight  is  blocked.  Inputs  to  the  program  include 
radar  antenna  height  above  ground  and  aircraft  altitude  above  ground  level. 

The  program  also  accounts  for  earth  curvature  and  atmospheric  refraction  of 
the  radar  beam.  Program  output  indicates  for  each  point  on  the  polar  grid 
whether  or  not  the  aircraft  is  masked. 

Another  terrain  masking  algorithm  is  available  from  a  large-scale 
computer  simulation  of  battles  between  ground  based  air  defense  systems  and 
several  weapons  systems.  This  simulation  is  known  as  TACOS  II  (Reference  8). 


It  is  clear  that,  if  a  point  on  the  ground  is  not  observable  from 
an  aircraft,  because  of  terrain  feature  obscuration,  then  the  reverse  is  also 
true.  Consequently,  these  algorithms  are  applicable  to  the  problem  of  calcu¬ 
lating  terrain  masking  from  ground  defense  sites.  Radar  ref ract ion/duct i ng 
effects  are  not  considered  a  significant  advantage  over  visual  reciprocity. 
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It  was  developed  by  the  U.S.  Army  Combat  Developments  Command  Air  Defense 
Agency  and  Braddock,  Dunn,  and  McDonald  and  it  runs  in  FORTRAN  on  a  CDC  6600 
computer.  The  terrain  masking  algorithm  is  just  one  of  many  routines  in 
TACOS  II.  Input  to  the  algorithm  is  a  matrix  of  terrain  elevations  taken 
at  500-meter  intervals  along  each  row  and  rows  are  spaced  500  meters  apart. 

(This  is  not  DLMS  data.)  The  algorithm  calculates  the  "  Domi nan t  Mask  Function," 
i.e.,  the  region  of  visibility  within  an  air  defense  site's  maximum  range. 

On  each  radial  from  the  site,  the  algorithm  finds  the  elevation  angle  to  each 
visible  ridge  and  determines  the  ground  distance  beyond  each  ridge  and  along 
the  radial  where  masking  occurs.  Figure  9  illustrates  the  idea.  The  algorithm 
accounts  for  curvature  of  the  earth. 


defense  FIRST  SECOND 

sue  RIDGE  RIDGE 


MASKED 

REGION 


Figure  3.  Illustration  of  a  Masked  Region  Along  a  Radial  from  a  Defense  Site. 
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Thus,  the  results  of  our  investigation  of  digitized  maps  show  that: 


1.  There  is  a  large  and  growing  body  of  DLMS  Level  1  digitized 
terrain  data  available  from  DMA  which  is  suitable  for  use  in 
ASPS. 

2.  There  are  several  existing  algorithms  for  calculating  topographic 
contours  and  for  calculating  masking  effects  of  terrain  around 

a  given  point.  It  is  reasonable  to  believe  that  algorithms 
suitable  for  ASPS  can  be  devised  by  modifying  ones  already  in 
ex i s  tence . 

3.2  INVESTIGATION  OF  HARDWARE  ALTERNATIVES  FOR  ASPS 

ISC  investigated  the  products  of  16  manufacturers  of  graphics  termi¬ 
nals  to  find  the  best  hardware  available  for  the  desktop  version  of  ASPS. 

We  restricted  our  investigation  to  the  relatively  large  firms  to  better 
insure  future  availability  of  both  service  and  parts.  The  major  considerations 
in  our  analysis  were: 

•  computation  speed 

•  cos  t 

•  coding  capabilities 

•  peripheral  avai labi I i t ies 

•  expandabi 1 i ty  of  system 

•  ease  of  displaying  and  programming  dynamics 

•  ease  of  entering  map  data 

3-2.1  Computation  Speed 

The  algorithms  that  are  needed  for  the  optimization  modes  of  ASPS 
("Rising  Water"  and  other  dynamic  programming  algorithms)  involve  a  great 
deal  of  computation.  Execution  speed,  therefore,  is  of  great  importance.  Most 
systems  which  ran  only  the  BASIC  computer  language  were  eliminated.  This  is 
because  BASIC  is  an  interpretive  language,  i.e.,  every  line  of  code  must  be 
re- i nterpreted  each  time  it  is  executed  and  this  increases  computation  time 
considerably.  FORTRAN,  on  the  other  hand,  is  a  compiler  language  wh i ch  is 
translated  into  machine  language  and,  thus,  each  line  of  code  is  interpreted 
only  once. 
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ISC  previously  developed  defense  penetration  planning  aids  which  used 
both'Rising  Water'and  other  dynamic  programming  algorithms.  These  programs 
were  implemented  on  a  Varian  V-73  computer.  The  execution  speed  of  the  V- 73 
was  used  as  a  benchmark  to  determine  the  relative  speed  of  the  various 
systems  examined.  We  wrote  a  program  which  consisted  of  code  similar  to  that 
used  in  the  aforementioned  algorithms.  These  programs  were  run  on  the  V-73 
and  on  the  other  systems  examined.  The  V-73  executed  the  program  in  the 
fastest  time  (20  seconds).  The  other  times  are  listed  in  the  summary  sheets 
of  each  system's  characteristics  which  are  shown  below. 

3.2.2  Raster  vs.  Vector 

Two  basic  display  technologies  are  available  for  the  desktop  versions 
of  ASPS,  namely,  vector  and  raster  graphics.  Vector  graphic  images  are  produced 
by  a  "gun"  which  draws  on  a  tube  at  very  high  speed.  Raster  graphics  produces 
an  image  consisting  of  many  points  or  pixels  (currently  as  many  as  a  million), 
each  of  which  may  be  chosen  to  be  a  certain  color.  Using  vector  graphics,  it 
is  simple  to  create  symbols  and  change  their  location  frequently  enough  to 
provide  smooth  movement  on  the  display.  It  is  also  an  easy  matter  to  blink 
these  symbols  or  change  their  color.  Animation  is  possible  in  raster  graphics, 
but  some  fluidity  of  motion  may  be  lost.  Raster  graphics  facilitate  colored 
background  and  shading  where  only  lines  and  circles  may  be  drawn  in  vector 
graphics.  We  principally  examined  raster  graphic  systems  since  this  technology 
is  more  widely  used  in  both  the  military  and  non-military  sectors  than  is  the 
vector-based  technology.  Also,  raster  systems  currently  sell  for  $30,000  - 
$160,000,  while  the  vector-based  systems  generally  beqin  at  $60,000.  Color  and 
shading  provide  an  important  coding  dimension,  and  all  raster  systems  supply  this 

3.2.3  Per i phera 1 s 

ASPS  requires  an  input  device  which  al lows  the  user  to  designate  a 
location  on  the  screen  with  ease.  A  joystick  or  trackball  is  a  good  choice 
since  either  facilitates  a  continuous  stream  of  updated  locations  on 
the  screen  to  aid  in  the  updating  of  a  path.  Special  function  keys  would  also 
be  necessary  to  allow  the  user  to  change  modes  in  ASPS.  These  keys  would  be 
clearly  labeled,  and  would  have  lights  associated  with  them  which  can  be 
turned  on  when  activated. 


3.2.**  Map  Data 


We  have  explored  various  methods  for  displaying  map  data.  One 
method  requires  digitizing  map  features  and  placing  it  in  a  data  file. 

This  file  is  subsequently  read  and  displayed  on  the  screen.  This  method 
can  produce  good  terrain  detail,  but  is  slow  to  display  and  requires  an 
enormous  amount  of  storage.  A  second  method  employs  a  35mm  slide  of  the  area 
which  can  be  displayed  through  special  equipment.  This  may  be  impractical, 
if  not  impossible,  when  the  computer  does  not  have  the  capability  to 
accept  the  extra  equipment  required  for  this  method.  A  third  method  is 
to  store  topographical  contours  in  coded  form  in  a  data  file.  This  seems 
to  be  the  most  practical  and  manageable  method  for  displaying  the  region 
in  question  and  is  certainly  adequate  for  ASPS.  Using  this  last  method, 
the  terrain  data  can  readily  be  held  in  a  data  file  and  displayed  equally 
well  on  all  systems  under  review. 


3-2.5  Dynami cs 

The  current  ASPS  work  does  not  require  a  great  deal  of  dynamics 
on  the  screen.  The  users  need  to  alter  a  path  which  does  not  require  an 
extensive  amount  of  dynamic  capability.  However,  the  ability  to  easily 
program  dynamics  may  well  have  major  importance  for  any  follow-on  work  for 
ASPS. 


3.2.6  Comparisons  Among  Five  Candidate  Systems 


With  these  cons i dera t i ons  in  mind,  ISC  compared  five  candidate 


sys  terns : 


•  Tektronix  4054 

•  Hewlett-Packard  9845 C 

•  Genisco  G0T-3000  ) 

•  Megatek  6250  V 

•  Megatek  7250  \ 


coupled  with  the  Digital  Equipment 
Corporation  (DEC)  MINC  11/23 
as  a  host  computer 
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3-2.6. 1  T ekt ron i x  4 0 5 4 .  This  system  is  a  stand-alone,  interactive 
graphics  computer.  The  single,  compact  console  consists  of  a  19-inch, 
monochromatic  storage  tube,  a  full  ASCII  keyboard,  twenty  spec i a  1  - f unc t i on 
keys,  two  thumbwheels  (dials  which  are  used  to  location  positions  on  the 
screen),  and  a  tape  drive. 

EXECUTION  SPEED:  The  slowest  of  the  four'  central  processing  units  whose  speeds 
were  measured  (more  than  twice  as  slow  as  the  MINC  11/23).  The  speed,  however, 
would  be  sufficient  for  ASPS.  Benchmark  program  execution  time:  121  seconds. 

COST:  The  entire  system  with  an  additional  two  floppy  discs  costs  approximately 

$30,000. 

CODING:  The  greatest  weakness  of  the  system.  We  found  lack  of  color  to  be 
a  great  disadvantage.  Textured  lines  (e.g.,  dot-dash,  dot-dot-dash)  do  not 
have  the  capability  of  color-coding  to  convey  complex  "scenes"  of  information. 

PERIPHERALS:  The  essential  peripherals  are  built  into  the  basic  console. 

Floppy  disc  drives,  graphics  tablets,  and  printer  can  be  easily  added. 

EXPANDABILITY:  Since  the  Tektronix  was  designed  as  a  stand-alone  system,  it 
will  not  accommodate  more  than  one  work  station. 

DYNAMICS:  This  vector  graphics  system  provides  fluid  movement  of  objects. 

However,  it  is  difficult  to  have  simultaneous  movement  of  a  number  of 
objects . 

MISCELLANEOUS:  Editing  and  programming  features  are  cumbersome  and  would  add 

to  the  programming  cost  of  ASPS  if  this  system  were  used. 


Whe  benchmark  routine  was  timed  on  the  Varian  V- 73,  MINC  11/23, 
Tektronix  A05A ,  and  H.P.  98^5~C. 
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3-2. 6. 2  Hewlett-Packard  9845-C.  The  Hewlett-Packard  (H.P.)  g845-C 
is  a  compact,  stand-alone  desktop  computer  with  a  color  graphics  raster 
display.  The  standard  system  comes  with  built-in  hard-copy  device,  two  tape 
drives,  a  keyboard  with  8  special  function  keys  (with  use  of  the  shift  keys, 
this  is  effectively  raised  to  32),  and  a  lightpen.  Additionally,  there  are  8 
software  programmable  keys  which  are  conveniently  located  just  below  the  CRT 
to  allow  labeling  on  the  screen.  Although  this  computer  may  only  be  programmed 
in  BASIC,  its  computation  speed  is  adequate  for  the  requirements  of  ASPS. 

EXECUTION  SPEED:  Half  as  fast  as  the  MINC  11/23,  but  adequate  for  ASPS. 
Benchmark  program  execution  time:  86  seconds. 

COST:  This  system  with  two  floppy  discs  costs  approximately  $46,000. 

CODING:  There  are  virtually  an  unlimited  number  of  colors  available  of 
which  16  may  be  used  at  any  one  time.  The  resolution  of  560  X  455  provides 
more  than  sufficient  clarity  for  ASPS.  Shading  and  filling  of  polygons 
is  easily  accomplished  in  the  software. 

PERIPHERALS:  Floppy  disc  is  available  for  an  additional  $5,000.  A  trackball 
is  not  available  from  Hewlett-Packard,  but  may  be  obtained  from  a  second  source 
for  $3 ,000-$5 ,000.  A  graphics  tablet  is  available  from  H.P.  which  can  be  used 
in  place  of  a  trackball  or  joystick  for  about  $3,000. 

EXPANDABILITY:  This  desktop  unit  was  not  designed  as  an  expandable  system. 

Only  one  work  station  could  be  supported  from  each  computer. 

DYNAMICS:  The  lack  of  easily  programmable  dynamics  is  a  disadvantage  of  this 
system.  None  of  the  demonstration  programs  by  H.P.  showed  any  dynamics.  This 
capability  was  not  of  high  priority  in  H.P.'s  design  and,  hence,  programming 
dynamics  is  rather  difficult  and,  in  some  complicated  cases,  impossible. 
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MISCELLANEOUS:  The  lightpen  does  not  provide  a  facile  means  of  altering  a 
path.  The  editing  capabilities  on  the  H.P.  98^5  are  excellent  and  will 
facilitate  programming. 

3- 2.6. 3  Systems  Using  the  DEC  MINC  11/23-  The  next  three  graphic 
systems  use  the  DEC  MINC  11/23  as  a  host  computer  (see  Figure  10).  The 
MINC  11/23  can  support  two  display  monitors  working  simultaneously.  FORTRAN 
is  programmable  on  this  machine  and  good  editing  features  are  available.  It 
gave  the  fastest  result  of  the  benchmark  routine  of  all  systems  under  consid¬ 
eration,  about  bS  seconds.'  A  fast  floating-point  processor  will  soon  be 
available  which  will  further  increase  its  speed  and  efficiency.  The  MINC  11/23 
is  extremely  lightweight  and  portable,  coming  standard  on  a  mobile  cart 
where  the  components  reside.  Adding  components  is  very  simple  and  designed 
in  such  a  way  so  that  the  user  can't  make  a  mistake.  Data  files  could  be 
created  on  other  DEC  equipment,  such  as  the  VAX,  and  used  on  the  on-board 
system,  which  increases  its  flexibility.  Also,  the  software  developed  for 
the  MINC  is  compatible  with  the  VAX. 

There  are  some  disadvantages  to  a  component  system,  such  as  the 
MINC  11/23  combined  with  display  monitor.  Having  a  separate  host  computer 
and  display  monitor  would  require  separate  maintenance  contracts  and  cabling 
between  the  components.  Cabling  would  add  a  slight  cost  and  get  in  the  way. 

The  operating  system  for  the  MINC  is  not  resident  in  core,  but  is  read  in  via 
a  floppy  disk.  Much  precaution  must  be  observed  to  protect  these  diskettes. 

The  MINC  only  accepts  a  Q-Bus  connector  to  its  peripherals.  Most  of  the 
display  terminals  reviewed  require  a  Uni-bus  connector,  but  converters  are 
readily  available.  The  problems  of  the  MINC  11/23  are  really  quite  minor 
and  would  not  hamper  the  operation  of  the  ASPS  project. 

Megatek  7250  and  DEC  MINC  11/23-  This  combination  is  well  suited 
for  current  and  add-on  ASPS  work.  The  ease  of  programming  dynamics  is  a 
great  advantage  to  this  system.  The  512  x  512  resolution  is  quite  adequate 


Varian  V- 73  is  not  under  consideration  because  of  its  size, 
used  as  a  comparison  for  the  benchmark  times. 


but  was 


for  the  level  of  detail  required  for  this  project.  This  system  has  a  pan 
and  zoom  capability  built  in  the  hardware.  The  analysis  below  is  for  the 
7250  with  a  keyboard,  joystick,  16  lighted  function  switches,  and  8  control 
dials. 

COST:  MINC  11/23  Approximately  $18,000 

MEGATEK  7250  Approximately  $38,000 

Approximately  $56,000 

CODING:  Up  to  16  colors  may  be  used  at  one  time.  Filling  polygons  is  cumber¬ 
some  and  must  be  done  in  software.  A  hardware  fill  capability  will  soon  be 
avai lable. 

PERIPHERALS:  Hardcopy  device  (black  and  white),  data  tablet,  and  pick  module 
(similar  to  a  lightpen)  are  among  the  available  options. 

EXPANDABILITY:  The  heart  of  this  system,  the  MINC  11/23,  is  well  suited  for 
expandability.  Two  work  stations  could  be  run  from  the  computer. 

DYNAMICS:  The  capability  to  easily  program  complex  dynamics  is  the  forte  of 
the  Megatek  7250.  The  data  link  from  the  MINC  to  this  display  is  fast  enough 
to  support  independent  fluid  movement  of  multiple  symbols  on  a  complex  tactical 
deci s i on  aid. 

Megatek  6250  and  DEC  MINC  11/23.  This  is  a  cheaper  and  less  powerful 
version  of  the  Megatek  7250  combination.  The  most  noticeable  loss  is  the 
complexity  of  dynamics  which  can  be  displayed.  The  MINC  talks  to  Megatek  6250 
over  an  RS-232  interface  instead  of  the  unibus.  The  result  of  this  is  that 
the  complexity  (number  of  vectors)  which  can  be  updated  every  frame  is  cut 
back  drastically.  However,  the  dynamic  capabilities  of  the  Megatek  6250  are 
adeouate  for  the  current  version  of  the  ASPS  project  althouqh  complex  scenarios 
with  multiple  objects  moving  simultaneously  might  cause  some  difficulties. 
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The  6250  conies  standard  with  a  keyboard  and  joystick.  The  special 
function  box  is  not  an  available  option  for  this  model.  Another  drawback 
of  this  sytem  is  that  the  only  available  display  screen  is  just  13  inches 
across  the  diagonal. 

COST:  MINC  11/23  Approximately  $18,000 

MEGATEK  625  Approximately  $20,000 

Approximately  $38,000 

Genisco  3000-  This  display  system  is  a  competitor  of  the  two  Megatek 
systems  that  have  been  previously  reviewed.  It  would  require  a  Q-Bus-to-Unibus 
converter  to  run  off  the  MINC  11/23  computer.  This  is  readily  available.  There 
are  several  monitors  available  with  varying  refresh  rates  and  resolution^. 

The  512  X  512  resolution  monitor  has  a  maximum  refresh  rate  of  30  Hz, 
whereas,  the  6A0  X  A80  resolution  monitor  can  be  increased  to  A0  Hz.  There  are 
other  monitors  available  with  better  resolution  and  faster  refresh  rates, 
but  the  aforementioned  monitors  would  be  adequate  for  ASPS.  If  very  complex 
movement  is  involved,  then  flickering  or  rough  movement  of  objects  might 
occur.  Also,  while  moving  an  object  around  the  screen,  a  ghosting  effect 
(i.e.,a  slight  trail  of  the  image  being  moved)  can  occur.  This  is  not 
envisaged  to  be  a  problem  in  ASPS. 

The  Genisco  system  can  be  programmed  by  either  referencing  pixels 
(used  on  raster  systems)  or  specifying  vector  lines  (used  on  vector  systems). 
Genisco  is  best  suited  for  image-processing,  although  dynamics  can  be  easily 
performed,  but  not  with  the  same  clarity  as  a  vector  system.  For  the  ASPS 
project,  the  dynamics  have  a  major  importance,  while  the  image-producing 
capab i I i ty  has  a  sma  Her  role  and,  hence ,  t  he  Genisco  3000  wou Id  have  more 
potential  than  what  is  required. 

The  Genisco  3000  has  virtually  unlimited  color  shading  available  on 
a  single  board  which  contains  four  bit  planes.  A  trackball,  joystick,  and 
alphanumerics  keyboard  with  sixteen  lightable  special  function  keys  are  easily 


-52- 


added.  These  special  function  keys  can  be  used  in  conjunction  with  the  shift 
and  control  keys  to  have  64  distinct  functions.  This  system  can  be  expanded 
to  two  monitors,  if  required. 

COST:  MINC  11/23 

GENI SCO  3000 

3.2.7  Recommendat i on 

The  Megatek  displays  are  more  suited  to  this  project  than  is  the 
Gen i sco  because  of  the  way  dynamics  are  accommodated.  We  have  not  seen 
Genisco  demonstrations  of  the  type  of  dynamics  which  are  required  for  ASPS 
and  would  be  reluctant  to  recommend  this  display  system. 

Of  the  two  Megatek  systems,  we  recommend  the  6250  if  the  current 
ASPS  concept  is  to  be  implemented  as  now  written.  The  6250  could  well 
support  the  requirements  of  the  current  ASPS  system,  but  might  not  be 
suitable  for  follow-on  work  which  involves  more  complex  dynamics.  The 
7250,  while  more  expensive,  permits  all  the  dynamics  needed  for  a  tactical 
decision  aid.  The  special  function  key  box  which  is  available  with  this 
model  is  the  input  device  most  suited  for  this  application.  Of  all  the 
systems  investigated,  the  Megatek  7250  most  closely  fits  the  needs  of  the 
current  ASPS  work,  and  would  not  restrict  adding  capabilities  in  the  future. 

All  five  of  the  systems  examined  are  state-of-the-art  systems.  All 
except  the  Tektronix  4054  could  be  used  for  the  on-board  ASPS  system. 

The  Hewlett-Packard  is  a  very  impressive  system.  Its  compactness  and 
easy  transportabi 1 i ty  is  a  true  benefit  as  compared  to  multiple  component 
systems  linked  to  the  MINC  11/23-  However,  difficulty  of  displaying 
dynamics,  and  the  lack  of  a  trackball  or  joystick  make  the  H.P.  a  less 
desirable  system  than  those  driven  by  the  DEC  computer.  The  expandability 
of  the  DEC  computer  system  may  be  important  for  ASPS  follow-on  work. 


Approximately  $18,000 

Approximately  $25,000 
Approximately  $^3,000 
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k.O  RECOMMENDATION 


Procedures  for  planning  Naval  air  strike  missions  are  mainly  done 
by  manual  processes  at  the  present  time.  Planners  spend  much  of  the  avail¬ 
able  planning  time  doing  tasks  such  as: 

1.  Calculating  fuel  consumption  for  alternative  routes  and 
weapon  loadings. 

2.  Measuring  ranges  and  bearings  from  turning  points  to  radar 
significant  points  or  visually  significant  points. 

3.  Measuring  courses  and  latitude  and  longitude  at  points  on  a  map. 

4.  Recording  a  plan  on  a  standard  form. 

Planners  do  not  currently  have  the  time  to  calculate  terrain  masking  regions 
for  different  AGL's  around  defense  sites  nor  are  they  able  to  calculate  the 
effect  of  terrain  masking  on  the  probability  of  survival.  All  of  the  above 
tasks  can  be  done  by  computer  software  whose  use  is  controlled  by  the  planner. 

Development  of  a  highly  interactive  ASPS  is  recommended  because  ASPS 
will  enable  planners  to  use  their  time  more  efficiently  than  is  possible  with 
current  manual  procedures  and  because  cost  of  ASPS  development  and  purchase  v/i I  1 
be  low.  The  ASPS  concept  described  in  Subsection  2.2  will  allow  the  planner  to 
do  all  that  is  currently  done  in  much  less  time  per  planning  session.  Alterna¬ 
tively,  with  ASPS  the  planner  can  evaluate  many  more  alternative  plans  in  the 
same  amount  of  time  that  is  currently  used  per  session.  Further,  certain  ASPS 
features  will  enable  the  planner  to  do  analyses  that  are  not  practical  at 
present.  An  example  is  the  quantitative  evaluation  of  terrain  masking  on 
alternative  plans.  Another  reason  why  ASPS  will  be  attractive  to  strike 
planners  is  that  it  is  essentially  a  powerful  calculation  and  display  assistant. 
The  planner's  judgment  and  reasoning  is  in  control  throughout  the  planning 
process;  ASPS  is  not  configured  to  force  any  take- i t-or- 1 eave- i t  decisions 
on  the  planner. 


Cost  of  ASPS  development  will  be  low  for  several  reasons.  The  state 
of  computer  technology  is  advancing  so  rapidly  that  exceptionally  powerful, 
low  cost  desktop  computers  are  just  coming  on  the  market.  (An  •■'xample  is 
a  desktop  VAX  computer  made  by  Digital  Equipment  Corporation;  this  model 
will  be  available  early  in  1982.)  The  Land  Minefield  Planning  Aid  System 
(LAMPAS)  is  a  Marine  Corps  program  which  is  taking  advantage  of  this  advance 
in  technology  by  incorporating  sophisticated  models  in  a  desktop  computer  and 
display  system.  Consequently,  our  judgment  is  that  hardware  cost  for  a 
production  version  of  ASPS  would  be  only  about  $60,000. 1  There  are  two  other 
reasons  why  cost  of  ASPS  development  would  be  low.  One  is  that  much  of  the 
design  work  has  already  been  done.  The  other  is  that  much  of  the  software, 
including  algorithms  for  determining  terrain  masking  around  defense  sites, 
has  already  been  developed. 


1 

This  is  a  non-GSA  price  for  a  single  unit. 
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APPENDIX  A:  SOFTWARE  STRUCTURE 


A  block  diagram  of  ASPS's  modular  software  structure  is  given  in 
Figure  A- 1 .  For  each  box  listed  directly  below  the  "Di rector"  routine, 
there  is  a  special  function  key  as  shown  in  Figure  A-2.  Routines  indicated 
by  boxes  below  the  first  tier  boxes  (special  function  keys)  are  manipulated 
through  displayed  menus  and  use  of  the  ACCEPT  and  REJECT  keys,  number  pad 
and/or  trackball.  The  software  implementing  each  function  is  self-contained 
to  facilitate  modifications,  integration  of  new  functions,  and  understanding 
the  flow.  The  Director  guides  the  top  level  flow  of  the  program  to  the 
proper  subroutines  and  ignores  improper  or  untimely  commands.  Only  those 
special  function  keys  which  are  lighted  at  a  given  time  are  active.  An 
example  of  an  untimely  command  is  attempting  to  change  a  path  before  a 
path  exists.  If  no  path  exists,  the  "A  CHANGE  PATH"  key  is  not  activated 
( 1 i ghted)  . 

The  program  consists  of  three  overlays.  When  going  between  overlays, 
the  flow  always  goes  through  the  Director  routine.  The  Director  guides  the 
flow  to  the  proper  overlay  when  the  user  presses  an  activated  special 
function  key.  The  three  overlays  contain  modes  which  correspond  to  the 


fol lowing  spec i a  1 

function  keys: 

Overlay  1 

Overlay  2 

Overlay  3 

Di  rector 

Change  Path 

Contours 

Exi  t 

S i gn i f i cant  Points 

Eva  1 ua  te 

Reca  1  1 

Launch/Target/ Recovery 

Store 

Opt imi ze 

Each  mode  has  a  specific  task  to  perform  and  is  entered  via  the 
Director.  The  user  should  know  the  purpose  of  each  mode  and  how  it  is  used. 
Instructions  and  a  title  for  each  mode  are  shown  on  the  display  to  aid 
the  operator.  The  subroutines  "Evaluate"  and  "Optimize"  do  not  currently 
perform  specific  mathematical  computat ions.  From  each  mode,  the  user  can 
easily  return  to  the  Director  Mode. 
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ASPS  FUNCTIONAL  ARCH  I TFCTURF 


Figure  A-2.  Function  Key  Setup. 


In  addition  to  the  modal  keys,  there  are  two  special  function  keys 
used  as  aids  for  the  operator,  namely  DECLUTTER  and  RANGE/BEAR  1 NG .  The 
DECLUTTER  key  allows  the  operator  to  call  up  or  delete  the  display  of 
significant  points,  defense  capability  contours,  or  both.  This  key  is 
active  while  the  program  is  in  the  Director,  Change  Path,  Significant 
Points,  and  Launch/Target/Recovery  Modes.  The  RANGE/BEARING  key  allows 
the  user  to  get  a  range  and  bearing  between  two  points.  It  is  active 
while  in  the  Change  Path,  Significant  Points,  and  Launch/Target/Recovery 
Modes . 


There  is  a  bookmark  routine  which  identifies  and  allows  for  the 
erasing  of  contour  entities  from  the  display  file.  Each  time  the  Contours 
Mode  is  called,  the  previous  entity  numbers  used  for  the  contours  are 
eliminated  from  the  display  file  and  then  reused.  The  bookmark  routine 
is  not  used  when  the  DECLUTTER  key  is  pressed  to  make  contours  disappear 
and  reappear.  The  bookmark  routine  is  only  used  when  entering  the  Contours 
Mode.  This  allows  a  variable  number  of  contours  to  be  drawn  and  allows 
a  variable  length  for  each  contour.  The  display  file  will  not  contain 
extraneous  contours  and,  hence,  the  program  runs  more  efficiently.  All  other 
entities  have  fixed  length  and  are  identified  in  the  subroutine  "Setup." 
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APPENDIX  B: 

DATA  FILE  STRUCTURE 


APPENDIX  B:  DATA  FILE  STRUCTURE 


The  bookkeeping  of  the  work  done  on  ASPS  is  stored  on  disk  in  the 
data  file  "Admins."  This  is  a  data  file  which  keeps  track  of  the  following 
i n forma t i on : 

1.  Number  of  maps  and  scenarios  available 

2.  Last  map  and  scenario  recalled 

3-  Current  scenario  being  worked  on 

k.  Figure  of  Merit  value  for  each  scenario 

5-  Optimal  scenario  for  each  map  thus  far. 

A  description  of  the  contents  of  the  Admins  file  is  given  in  Figure  A-3- 

For  each  scenario,  there  is  a  disk  file  with  pertinent  information 
to  be  read  into  the  Master  Data  File  (MDF) .  The  MDF  is  set  up  such  that  the 
first  fourteen  words  are  pointers  to  their  respective  sections.  This  was  done 
to  allow  maximum  flexibility  in  the  MDF  array.  Figure  A- 4  shows  the  MDF 
header  with  its  set  of  pointers  to  specific  locations  within  the  MDF. 

Figures  A-5  through  A- 1 3  describe  each  section  of  the  MDF. 

Some  of  the  entries  in  the  MDF  are  fixed,  while  others  are  supplied 
during  the  execution  of  the  program  by  the  operator.  The  permanent  features 
include  terrain,  sensor  positions,  SAM  site  positions,  AA  site  positions, 
origin  and  scale,  elevations  and  character  strings,  and  all  defense  capability 
contours.  The  information  supplied  by  the  user  includes  VSP/RSP  positions, 
stores  being  carried,  and  the  flight  path. 

The  contents  of  the  Admin  file  prevent  user  access  to  a  Master  Data 
file  until  a  scenario  has  been  stored  in  it.  When  a  scenario  is  STORED  by 
the  operator,  the  Admin  data  is  updated,  but  not  stored  onto  disk  until  the 
operator  presses  EXIT. 
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1 . 

Terrain  pointer 

2. 

Sensor  pointer 

3- 

Surface  to  Air  Missile 
(SAM)  Pointer 

b. 

Character  string  and 
elevation  pointer 

5- 

Lat.,  Long,  and  Scale  pointer 

6. 

RSP  pointer 

7- 

VS P  pointer 

8. 

Path  pointer 

9- 

Stores  pointer 

10. 

Sensor  Contour  Pointer 

1 1 . 

SAM  Contour 

12. 

Anti-Aircraft  (AA)  Contour 

13- 

(AA)  Pointer 

\b. 

Scratch  pointer 

Figure  A-4.  Data  Format  of  the  Master  Data  File  Header 


Figure  A-5-  Terrain  Data  Format. 


M0F(2) 


Number  of  Sensors  =  L 


Bit  code  for  active  sensors'] 


(a)  Sensors 


SENSOR  HEADER 


SENSOR  BLOCK  i  =  1  to  L 


1001 11^  =  39  means  sensors 
1 ,  2 ,  3 ,  6  a  re  ac  t i ve 


I 


HDF(3) 


MDF(4) 


Number  of  SAMS  =  M 


(b)  SAMs 


Number  of 

character  strings  =  II 


(c)  Character  Strings 


SAM  HEADER 


SAM  BLOCK  i  =  1  to  M 


i  =  1  to  II 

i f  MUM  >0,  display  MUM 

if  MUM  •  0,  display  character 
(  MUM  ) 


Figure  A-6.  Sensor,  SAM,  and  Character  String  Data  Formats. 
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MDF  (b) 


(Launch) 
1st  Node 
and  Leg 


2nd  Node 
and  Leg 


3rd  Node 
and  Leg 


1  No.  of  Legs  =  N 

2  No.  of  Target  Nodes 

3  (not  used  for  now) 

b  X  -  1st  Node 

5  Y  -  1st  Node 

6  AGL  -  1st  Leg 

7  Speed  -  1st  Leg 

8  Drag  -  1st  Leg 

9  X  -  2nd  Node 


10 

Y  -  2nd 

Node 

1 1 

AGL  -  2nd  Node 

12 

1 - 

Speed  - 

2nd  Leg 

13 

Drag  -  : 

2nd  Leg 

1  b 

X  -  3rd 

Node 

15 

Y  -  3rd 

Node 

16 

Speed  - 

3rd  Node 

Header 


Maximum  of  10  blocks 
each  with  5  words  per 
block 


I  PATH  (Entity  300) 
DIM  I  PATH  =  55 


NOTE:  This  information  is  placed 

in  the  I  PATH  array  found  in  the 
common  area: 

COMMON/ROUTE/ I  PATH  (65) 


Nth  Node 
and  Leg 


Recovery 

Node 


X  -  Coordinate 
|5(N+!)  Y  -  Coordinate 


Final  2  words 
for  Recovery 
Pos i t ion 


Figure  A-8.  Data  Format  of  Path  Information. 


For  each  AGL  and  each  Sensor  ( i nc I ud I ng  the  Composite)  the  format  is  as  follows 


Figure  A- 1 1 .  Data  Format  of  Sensor  Contour  Points. 


figure  A- 12.  Data  Format  for  SAM  Contours. 


Radius  of  AGL  1 

AGL 

2 

AGL 

3 

AGL 

4 

AGL  1 

AGL 

2 

AGL 

3 

AGL 

4 

Radius  of  AGL 

1 

AGL 

2 

AGL 

3 

AGL 

4 

(a)  AA  Contour? 

Number  of 

AAs  =  N 
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PAGE 
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MALE VI 


VORTXII  FTN  IVCC.) 


OCOO  HOURS 


1  SUFROUT  1 1 IE  A  0  DN'OD  < f  IODE ) 

a  C  SUBROUTINE  APr,l !0D  ALLOWS  FOR  THE  ADDITION  OF  NEW  WAY  POINTS.  A 

3  C  MAXIMUM  OF  10  WAV  POINTS  ARE  ALLOWED  AMD  A  NODE  CANNOT  HE  ADDED 

4  C  EEY'OND  THE  RECOVERY  F-’OINT. 

5  C 

6  C  NODE  -  THE  NUMBER  OF  THE  NODE  TO  PRECEED  THE  NED  NODE 

7  C 

3  COMMON  /ROUTE/  1 PATH (65) 

9  IF  (IPATH(l)  . EO.  10)  GO  TO  SCO 

10 

11  C  CALCULATE  THE  STARTING  COORDINATES  OF  THE  NEW  NODE 
13  IFOS  =  6 1  NODE- a 

13  INI  IELJ  =  FLOAT  ( I  PATH*.  IPOS)  I- 1  PATH  ( IPOS+6)  )/E  . 

14  IYNEW  =  FLOAT  ( 1 PAI H  ( I P03+ 1 )  + 1  PATH  ( I POS+7 ) )  /£ . 

15 

16  C  CHECK  IF  THE  DISTANCE  OF  THE  NEW  NODE  Tu  THE  PLFEPEf  'OE  NODE  IS  WITHIN 

17  C  10  UNITS.  IF  T'-UE ,  hi  NEW  NODE  LULL  NOT  BE  ADDED  AND  A  MESSAGE  WILL  APPEAR. 

13  IF  ( 1ME3< IN? OJ-IFaTH( IPOS) )  .GT.  IE)  GO  TO  SO 

19  IF  ( IAB3(  I VI IEW-IPM7HI IFOS+1 ) )  .LE,  IE) GO  TO  -100 

SO  C 

£1  C  EXPAND  I PATH  ARRAY  TO  MAKE  ROOM  FOR  THE  NEW  NODE 
EE  50  JFOS  =  (I PATH (1 ) -NODE ) T&iE 

S3  I  El  ID  -  GTIPATH' l)+6 

£4  DO  100  J*1 , JPOS 

E5  IFATI-K IEHD+G-J )  =  IPATH ( IEI  ID- J ) 

EG  100  CONTINUE 

E7  C 

£3  C  INCREASE  THE  TOTAL  NUMBER  OF  NODES  COUNTER  AND  (IF  NECESSARY) 

£9  0  THE  POSITION  OF  THE  TiTGET  NODE 

.?:>  IPhTHU)  -  I PATH f  1  >  1 

31  I  N:  ,LV,  ' . ’  !(£)  ;i  IP.-iTI-ICE)  IPCTH'E) U 


Hi 

HE 

43 

44 

45 
•4G 


C  FILL  T.M  r:w  NOD  I 
IP:  'THU  I  OS  :S0 
j.mTTH1'  l!'".1' 
iPMTH'. :  RC-S- -i-3) 
IP'.TI-K If'  V.  i-9) 
GO  TO  Sin 


KIT  1011  AND  SET 
i: ::  'EM 
TV?  'FT. I 


DEFAULT  VALUES  FOP  ALL  'Ti  ID  SP'FF-'D 


li  V  l  l-!(  IPCG-i-S) 
1 P;  ,TPi  ( IPOS-i-3) 


C  TRYING  TO  ADD  A  HOPE  TOO  CLOSE  TO  SURROUNDING  MODES 
400  CALL  EfV-iiSG  (Z) 

GO  TO  510 


C  TRYING  TO  ADD  MOPE  THAN  10  NODES. 
SCO  CALL  ERR! LEG  (1) 

510  ChLL  I.V  WPTH 


47  CALL  GHLT 

43  CaLL  GC’.TCO) 

49  C-iTLL  LETT  (0,0) 

50  PE  TURN 

51  END  ' 

0  ERRORS  COMPILATION  COUPLE TS  „ 
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VC';TMII  FTN  IV  CG 


oo "'0  iru\*. 


1.  F'.TPvUTIi  t  f  '.'OTT 

p  o.i  :i  i’.'-i  i  -  n  rrv l  :n  <  ip i  ,  iiipp 

-]  c  SUi.TOJT.rMr  rtATTTS  FOP  n  DISFLOY  INTERRUPT 

S 

G  If >TT(  1  >  0 

7  COLL  f  V:  .1  10  0,0) 

C  1  COiriJi'l.T 

9  jr(lnir«..O.EO.O)GO  TO  1 

10  RETURN 

1 1  i-::  id 

0  ERRORS  COOiLATICN  COMF1  .RTF 
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PAGE 
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I1PLEVI 


VORTXII  FTN  IVCG) 


0030  HOURS 


SUBROUTINE  BLAST 

C  SUBROUTINE  BLAST  ALLOWS  THE  USER  TO  DESCRIBE  THE  TYPE  AND 
C  AMOUNT  OF  STORES  THE  AIRCRAFT  IS  CARRYING.  A  MENU  OF  THE 
C  TYPES  OF  STORES  APPEARS  AND  A  NUMBER  PAD  IS  USED  TO  DESCRIBE 
C  THE  AMOUNT . 

/  DIMENSION  MAX (4) 

8  COMMON  /MASTER/  MDF(  2-100) 

9  C  MAX  IS  GIVEN  THE  MAXIMUM  POSSIBLE  VALUE  FOR  NOU.  TO  BE  CHANGED 


10 

1 1 

DATA  MAX  /9 93,99?, 

PO'l  ooy/ 

JO 

r  '■  [ » „  c'-.ry  r  ?  .  -  *  :• 

13 

(. :  LL  1  Li ( 1.  7  1  ) 

M 

IP  IP  -  IT PfOi 

IS 

MHol'TS  "  -1 

JO 

IV 

IT 

COLL  OPT!- 'MU  (SO 

0  PUT  OUST'D  IT  STORE'S  VV 

UJE  INTO  MENU 

.19 

100  DC'  IRC'  IMA.  3 

ryi 

Oi  .LL  '.Mi  IT  fin 

il<> 

?.v 

CALL  'Sir  IT  1.21. 

ML'PCIPTR+K)  ,4) 

r  ,'-1 

ISO  COMTlt  I"-! 

r,  s.' 

CALL  FM.lv "T  (Wl’S’t 

I  OPT) 

s  t 

jp  aopr  .pol  9i  i. 

0  TO  ISO 

:  t  * 

i.  l  c •" 1 1 "  iUiRi 

Cl  .LL  i  "'  N  '  .1. 1.9!  Tv: 

)"] 

cf. ' 
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MRLEVI 


VORTXII  FTN  IVCG) 


OOOO  HOURS 


1  SUBROUTINE  CNGALT (NODE) 

2  C  SUBROUTINE  CHGALT  ALLOWS  THE  USER  TO  CHANGE  THE  CUPFENT 

3  C  ALTITUDE  OF  A  GIVEN  LEG. 

H  C  NODE  -  THE  NODE  NUN3ER  THAT  IMMEDIATELY  PRECEEDS  THE  LEG  TO 

5  C  BE  CHANGED. 

6 

7  DIMENSION  I  ALT  H) 

3  COMMON  /ROUTE-'  1PATHC6B) 

9  DATA  I ALT  /250, 500, 750, 1000/ 

10 

1)  C  BLINK  LEG  (IBLIIK  =  ELEMENT  t  THAT  BLINKS  LEG) 


12 

IPLNK 

:  »  SIN0DE-.-3 

13 

call 

GENT  <?' 0) 

1-1 

1  r' 

CELL 

1  ■  ■  [  r- 

i7  PUT  ( I M  .1 : , 

130.3,1) 

J  ' 

IP 

n:\;v 

'  E . 1  .7  .  Ti  l  .T!-!( 

i  TV MT“  1 ENT-IT. 

J 

Cv  L.L 

A’-.f  1 !  .TEND 

CALL  >'I'IJ|'  (3. 1) 

1  ■■  ■ 

ri'i  C  DISPLAY  Oi'TM'.'NA,  GET  tTI.,1  STEED,  AND  PUT  INTO  IPATH 
Rl  MEETS  -  •! 

'•  '■?  C':'1 '.L  i'„’  T1 "  UC'I ' 

eg  call  rrJ. i i,  ,TOPn 

PM  TF  aor-'i  O'  go  TO  voo 

A1:,  IP:  |TH.  AEAi.'Ei  •*  D  LT<  I  OPT) 

C  DISPLAY  NEW  LVUT''~  o*i>;.  RETURN 


,  i  10G 
t 

PI 


O  LL.  >: 

■'  L  ' 
Ci  I  L 

'.'all  •: 


i  11  ’.I  ,  130,3  0) 

n  i.i  lii 
1. 3.1  :>*•  ,3.0) 


rr  TUPii 
;t  EM!' 
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MRLEVI  VORTXIX  FTH  IV CO 


0001  HOURS 


1  SUBROUTINE  C NORTH 

2  CO!  MON  /ROUTE/  IPATHC65) 

3 

4  C  THIS  IS  THE  DRIVING  ROUTINE  TO  ALTER  A  ROUTE 

5 

6  D INCUS I on  ICH7RTC3) 

7  It  ITEGER  TARUOD 

3  DATA  ICNVRr/1.4,5/ 

9 

10  C  LIRITE  WHEREABOUTS 

11  LCHN0D=1 

12 

13  10  CALL  SELHODCUODNUM) 

1-1  C  NOOIIU'HO  IS  USED  TO  EXIT  THIS  ROUTINE 

15  IF  CNODNUH  .  EO .  0)  GO  TO  100 

IS 

17  TARUOD  = I PATH ( 2 ) 

13  tior.£=i 

19  IRC  MODIUJN .  EO .  LCHI  tOD .  OR  .  NODHUM .  EQ .  TARNOD )  HODE= 2 

20 

21  C  WRITE  OPTIONS  III  THE  MENU 

22  CALL  CPTHULKI  IODE) 

23 

24  C  IF  THE  LAUNCH  NODE  OR  TARGET  NODE  IS  CHODEN  USE  A  DIFFERENT  MENU 

25  C  SELECT  FRijI’l  MENU 

26  NH0PTS=5 

27  IF  i  MODE  .  EO  .  2 )NH0FTS=3 

23  CALL  SELECT CMHOPTS  IOFT) 

29  C  IOTF-O  INDICATES  THAT  THE  RETURN  KEY  WAS  HIT  IN  SFLFCT 

S’1  IF  CIOPT  . EO .  O'  GO  TO  50 

31.  .1.3(1 1  •  1  7 .  i'  "3  '.'IN  I  I  OFT) 


SO 


40 

41 

42 

43  100 

44 

45 
4S 
47 
43 

49 

50 

51 

0  ERRORS 


IF I  CRT .  EO .  3 1  caul  i  iovnodcnodnun) 
c c.l  geo;-'  ci'"'’1 

CELL  T I  EG  1 33 

IF  Cl'.';  T.LO.-t'iX'LL  CNGSRDCMODNUll) 
1  r-  (  Ti.-PT  ,  s?1  :‘UL  ''.NO'  'LTcUO! HUM) 
C  t-  'LL  UMDLNK 

if  <  no:-  r .  e.a ,  1  -.call  iodniop; ium) 

J  F  C I  OPT .  EO .  2  )  <JL  L  DELNOD  <  NODI  1UM  > 
GO  Tu  10 


CALL  GUIP  (1,-1,0) 
CALL  UNRLIIK 
CALL  TOFNSG  (1) 
CALL  C-CS'T  (Oi 
CALL  G3TT  (0,0) 
CELL  GEOF (10) 

CALL  GE0l-'i.'193) 

RF.TUR!  I 

END 

COMPILATION  CONFLETE 
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1  SIJEROUTIt IE  CNGSPBUIODE) 

2  C  SUEFOUT I  HE  CMGSP'D  ALLOWS  THE  USER  TO  CHANGE  THE  CUFEENT 

3  C  SPEED  OF  A  GIVEN  LEG. 

•1  C  NODE  -  TIE  NODE  MUMPER  THAT  IHHEDJATELV  FEECEEDS  THE  LEG  TO 
S  C  EE  CHANGED 
G 

7  DIMENSION  ISF'Di-4) 

S  CONI  ION  ✓  ROUTE-'  IPATHCSS) 

9  DATA  ISPD  /300 , 300 ,  -420 ,  A3Q/ 


10 

11 

c 

BLINK,  LEG 

(I BLUE  - 

ELEMENT  It  THAT 

BLINKS  LEG) 

12 

TF  U  !K  - 

GTNOPF+3 

13 

C  'LL  CENT  (300- 

M 

C  ■  '  L 

UT  CTNIj:" 

1-0.7. 1.) 

ir. 

)V 

]  i  '  i •• 
cr-U-  i" 

L  ! :  1 1 1  • 
i ; !'.  it.!  i  !"• 

1  VITir-IEMTM 

1 

'■  '  U.. 

or  -3.1  ■■■ 

3 . 1. 1 

c 

Disr-LG’ 

n.o; is.  cl' 

lE-  l  ALTITUDE, 

AND  PUT  INTO 

1 

i "  :.tt  ■ 
cokl  cr 

-  .-1 

II '  LK?  ' 

i 

C.  '  L. 

i  •.c  r  N'N.r 

T  ,  TC7-n 

Ti.  * 

.it  ■  T' ; 

r  .  c  o .  o » 

r  i  i  YO  iTO 

I  FAT!  !<  ■' 

; 1  -;-i  )  • 

’ of  1 1  •!  T) 

I',- 

C: 

D.TS/'i  iTV  I"- 

'•l  '.''jU.T'a  ; 

•1  ID  FLTU'N 

10 

o  <:•  IE  ' 

’  i  -  '  O 

V  1 

r .  i  E  ' 

.If  (  111. IV 

'  TO  ,  3 , 0  ) 

I 

■  l  1  ' 

;  ,r  f  I  IT  )  1 

Ci  '  l  c: 

jr  -  j. 

3.0) 

3'  f.rUTM 

:ir:  fun 

0  ERRORS  CO!  IP  1  LOTTO!  I  COi'FLF'lE 
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VORTXII  FTN  IVCG) 


pool  HOURS 


subpout ihe  cntuuf 

COI  il-IOi  t  /DISP/IDFLf  '1000) ,  MARKRCIE) 

COMMON  /MASTER/  I  IDF  (£-100) 

C  ALLOW  USER  TO  SFLFOT  COUTOUR  AND  AGL 

IF  (N..PKPC1)  .HE.  USD)  CALL  GFESV(  IDPL,  NAFKRCE) ,  NARKRC  3)  ,  MARKRC4 ) ) 
CALL  GSi  i' .  E  (I  DPL .  HAFSCR  ( £ ) ,  MARKR  (3),  HARKR  ( 4 ) ) 

IEMT  =  BSD 
CALL  T0FMSG(9) 

CALL  CPI  HI  IUC?) 

CALL  SELECT  >5, IUHCH) 

CALL  CPTHMLK?'* 

CALL  GEL  I  i  ( IUHCH+11C) 

CALL  BELMUH  ( 4,  IWHCI-I  H 10,  £4,  IAGL) 

IF  (IAGL  . LE .  0*  GO  TO  500 

C  DISPLAY  SENSOR  CONTOURS 
IPTR  -  I  iDF  ( 10) 

IF  (I I, INCH  . EO.  £  .OR.  IUHCH  , EQ .  5)  GO  TO  £00 
IF  (IUHCH  .LO.  4)  GO  TO  400 
MO  =  I  IDF  (I  iDF  (2) ) 

DO  1E0  JG  ,110 

N.LTrTF  =  I  IDF  ( IPTR+IAOL  +4T.J-1 ) 

IF  (I  i;  .TPTR  .EC*.  0)  GO  TO  ISO 
CALL  SO iCI IT  (IT (TPTR,  IEMT) 

120  CONTINUE 

IF  (IUHCH  .ME.  3)  GO  TO  500 
C  DISPLAY  ShU  hA  COI  I  POURS 
£G0  IPTR  =  HDr-i3i 

InGLPT  =  I  IDF  (1.1) 

mfts  -  npfi rr;r:i 

r-'i  PRO  J  - 1  ,1  -Y4 

T 

r:  -  ■  i c  1  : r  i r - iros) 

IV  "  :  *  V!  tfVFvl) 

i.  'LL  >'  ':*■  -  U!  T'  TIm  IT*  ,  IX,  IV) 

Ci  CL  L'llGi'  1  1.  !  i  ill"  * 

IF  i0  -  lii.v  *  y i  r  LFI  l  JCGL-MYJ-S) 

CALL  OriJT  (A  !G"G  in*  ID  0* 

£20  CCMTIIVF 

IF  (IL’-LH  .  NE .  S)  00  TO  SO 0 

C  DISPLAY  COMPOSITE  SENSOR  CONTOUR 
400  IPTR  =  N DEC  10) 

1 1". (TPTR  -  tlDF  ( 1PTR+IAGL-I ) 

IF  Hi: (IPTR  .EO.  Of  GO  TO  500 
CALL  SENG  IT  (N!  (TPTR,  I  ENT) 

500  Hi-iPKP ( 1 )  -  IEMT 

CALL  TOFICG(l) 

CALL  H.SNNU 
CALL  GEOF  ( 110+ IUHCH) 
brJ  RETURN 

53  El  ID 

0  ERRORS  COMPILATION  COMPLETE 
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MRLEVI 


VORTXII  FTN  IVCG) 


0001  HOUFS 


1  SUBROUTII  r  CPTI « III r  MODE ) 

2  C  CHhIIGE  PATH  MENU 

3  C  IF  I iOLE- 1  THEM  LIFT  ALL  5  OPTIONS  IF'  MODELS  THEM  l.TST 

4  C  ONLY  THE  THREE  OPTIONS  AVAILABLE  FOR  LAUNCH  AMD  TARGET  NODES 

5 

S  CALL  GNLT 

7  GO  TO  (100,  K>0. 600, 700, ECO, 300,350), MODE 

O 

9  C  FOR  MODES  1  AND  2  DISPLAY  PATH  OPTIONS 

10  100  CALL  G3CH( 111,6) 

11  WRITE ( 15, 111  i 

12  IK  ( MODEL  EO.  2)  GO  TO  500 

13 

14  CALL  GSCH( 112,6) 

15  WRITE ( 15, 112) 

16  CALL  GSC  Hi.  113,6) 

17  t.'RITEUS,  .1.13  J 

13  CALL  GSCH a  I  4,6) 

19  WRITEdSflM) 

20  CALL  GSCH  (US,  6) 

21  LIMITS  as,  115) 

22  111  FORMAT  ( -'ADD  MODE  a 

23  112  FORMAT  (  '  DELETE  I IODE ' ) 

24  113  FORI  1AT ( •’ MOVE  MODE') 

25  114  FORHhT( 'O  UNGE  LEG  SPEED') 

25  115  FORMAT (  'CHANGE  LEG  ALTITUDE') 

27  GO  TO  900 

C  ** 

29  500  CALL  G3CHC1 12,6) 

30  UP  HE  a  5,  114) 

31  ChL.L  GS  OH  ill  3,6) 

32  URnEaS.115) 

33  GO  TO  900 

34 

35  C  FOR  MOIE  3  DISPLAY  SPEED  OPTIONS 


GOO 

CL  CL  G 

Mil, 

Ri 

3  <: 

<:  ll  o 

i-  i  i 

6) 

3-! 

i.i'-i  '!F  r  i  a 

.  ICO!.  ' 

4  ‘i 

iD'LL  0"'.  ■' 

r  i  i  ' 

61 

41 

write  as 

,  1L02) 

42 

CALL  G5-.  N 

(  114, 

6i 

43 

WRITE  (15 

,  1603) 

44 

1600 

FORMAT  ('! 

SPEED 

I  = 

300 

KNOTS') 

45 

1601 

FOPNhT  (  •• 

II  = 

300' 

) 

4G 

1602 

FOFMhT  ( ' 

III  « 

430' 

) 

47 

1603 

FORMAT  (  7 

IV  = 

430' 

) 

43 

GO  TO  900 

49 

50 

C  FOR  HOPE  4  DISPLAY 

1  AC.L 

OFT IONS 

51 

700 

CALL  GSCH 

(111, 

6) 

52 

WRITE  f 15 

,  1700) 

S3 

CALL  G3CI  I 

(112. 

S) 

54 

write  as 

,  1701) 

55 

GO'LL  GSCH 

(113, 

6) 

56 

WRITE  ( IS 

,  1702' 

r7 

CALL  GSCH 

(114, 

6,1 

52 

write  as 

,  1703) 
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G9 

1700 

FORI  iAT  ( ' 

AGL  I 

=  EGO  FEET') 

80 

1701 

F'.'R.I  VtT  l  • 

IT 

=  GOO '  ( 

81 

1705 

FORMAT  <- 

Ill 

=  750 ' ) 

82 

83 

1703 

FORMAT  '  ' 
GO  TO  200 

IV 

=  1000') 

8-1 

C'3  C  MODE  =  5  DISPLAY  STORE  OPTIONS 
85  £00  CALL  GSCH  (110,8) 

to?  I, 'RITE  OG.  1500) 

63  CALL  GS'.H  (111,8) 


69 

LiET  FE 

r 

18 

1501) 

70 

CALL  G 

>.H 

(115,8) 

71 

W-TTE 

( 

IS 

i ) 

72 

CALL  G 

CH 

( 1 ' 3,6) 

73 

UR  ITE 

( 

IS 

15' "3) 

7-1 

ChLL  G 

CH 

( 11-1,8) 

URITE 

( 

IS 

lEC-’r) 

1500 

Fori  ;at 

(■'SELECT  STORES 

OPTION') 

7^ 

1501 

FCF.1 17-tT 

(  ' 

GOO  LB  BOMB') 

*  w 

1 505 

FORI  IhT 

(  / 

1C  ..'0  LB  Be¬ 

■IB' ) 

79 

15.03 

FOR!  IAT 

(  ' 

lli  S5H.ES-') 

30 

150-4 

FORI  IAT 

(  ' 

FUEL  TAT  IKS 

' ) 

El  GO  TO  900 


c-p 


z 

C  DI 

Sn.AV  MAP  MENU 

5’t 

300 

CALL  GSCH  (11.0,6) 

V' 

•—  J 1 

IJRITE  f  IS .  1300) 

v  *0 

Ci- LL.  GSCH  tlli  8) 

LITHE  <  IS,  1301) 

■“ 

t  ..- 

'ELL  GSCH  *  1 15,8) 

Z9 

IF  HE  (15,1302) 

50 

Ci- LL  GSCH  (113.8) 

91 

UF.'ITE  '15  13:03) 

7.7 

CALL  GSCH  (1 1-1,8) 

"1; 

1,'  'TTE  i  ip  (3  , 

1300 

(-"•  ii  ;T  ,  r.  -r 

J.  :■  v 

i  -.  ■  ;  ’  ’’ 

r,“? 

1-  5 

1  yO  ' 

i  ■ .  1  .  T  ( '  i 

-.r  -  r  i.  ,t  ,  ■*  i  •  ’■ 

1 J,  '■ 

\z-<\ 

F'.  '  ,T  i  '  l-VE 

(j~4 

GO  TO  9'..  U 

1C? 

101 

C  CONTOURS  I  IEHU 

ioa 

350 

call  gsch  a  to  s) 

103 

I.J'-'ITE  ns  1350) 

1CM 

CALL  GS'.H  till , G -> 

1<"'5 

UR  HE  i  15,1351) 

106 

Ci'.LL  GSCH  (115  8) 

107 

L'PITE  i  IS  1332) 

103 

CiLL  GSCH  (  H5.6) 

J  i  iU 

l,'"T'IF  i  15, 1353) 

It*"' 

CALL  CO.  !•{’  '  J 

1," 

i  ~ 

O  f 

•;  i 

'  'H  h.  ci'  i  ' 


it.  i 
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0002  HOURS 


SUCR0UTJ1 E  DL'lUiT 

COt  'IIOH  /TLAGS/'  U-WCO)  .PXPTC9)  .LEUCHO) .  IFL0UC5) 


C  LEVEL  1 
C  LE-.EL  2 

C  LFP  LL  3 

C  LLM.L  4 


TEPPAIM 

TPr-ruItl 

TEI.PwJH 

Tcr  -  ••r.n 


EPS 
LI  S 


■  i  Li' ' ;  ‘  1  •  -'j  11  ’’ 

1.o  i;:  ( l "  ■  •  :<  T  >  4  ■!  :n  ■>- i 

i  i  LL  I  L-l  :  '•  '■  .1  i  i 

i  i  T.j  r  pr  V"  '  'L  ^  1  ,1  EVEL 


COt  (TOLL'S 


COMTOO'S 


i  i  t  oo  0 

1  ■  *  | 

•ll  v\.: 

;•  *f  n 

i  1  1  !  t  1 

t  ’  * 

o'  To  ••  . 

i  •  pc  o  •: 

:  i  r 

i 1  1  *  ’ 

'LL  rV 
'  L  ' 1  v 

:■  i'o  ■ 

r-  -  ,*  i  } 

Tj-yri  i 

.  poo  c 

i  1..  T' ", 

‘■"VO) 

;  ■  i  c 

;<  i  o  ■ 

I'i '  f  )  i 

.  .v  -i co  <: 

L!  O'  '''! 

~f0) 

'  '-'CO  l' 

.  I U!' ;  i 

.  in.'*; 

l  1  i 

o  :.  i:;\P3  co; : 

•ILOTJl 

i  coir 
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1  SUFFOUTJ! PIPl 

2  COi-J?  j.'!  - 'FL.H'VO ■'  LI  .“■‘PE (91,  rO.TT ( 9 1 . L^UC  H 1 3 1  IFLOKFi 

3  I..  L  L.  ■  v : 

•;  i;;rL'  "  •.  ii.ch 

l“ 

I-.  Tr  i'IrL'‘M!l  '.I’'.''1'  r.n  7(i  170 

r  *:  Li. 

0  cr u.  n 

*  i 

i  ■>  ioo  n.  r  '  •:  .'7' 


t  1 

1  -1 

Ii  ■ 

>  i  v, 

1  i  i*  1 1'  '  i 

;>  to  o' 

13 

-i  i  y f.  *. 

1  1:  1  L  !  i  Ji 

1  .1 1 

1  .  i  1  .  L  »»  ;  ’  .1 

.  nov-.i. 

1  ■! 

H'i i..r  r 

I.L.  '.r  m:.  '  1 

.  1  i'  •'  r. 

h;  it* 1 1 •:  rt. i , ..  .■  i,  i  1 1- 

J!;  i  r >i  '!.i  n.i'.ii  •  •  l  i ■:  i  i '  ir 
IV 


'  ;  1FL0I.I  i' 1.1  -  i 

W  II  I..I.M  i  O'  <1 

2.i  oo  v*.i 

3  i 

.  :  900  r  r;n  r.i  i 

,'l:  r- ;  ;;.i 

0  I..P:-:-*ons  CO.  I  LOT  CC!  ■'!  LL't  F 
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SUBROUTINE  DRECTR 

C  THIS  ROUTINE  iriFOPiTS  THE  USER  OF  THE  OPTIONS  AVAILABLE 
C  EV  TURNING  ON  THE  LIGHTS  ON  THE  KEYS.  WHEN  AN  OPTION  HAS  ECEN 

C  SELECTED  I FLOW1 1 1  IS  SET  TO  THE  OVERLAY  NUMBER  AND  IFLOU(E) 

C  IS  SET  TO  THE  ROUTINE  NUMBER 

IMPLICIT  INTEGER! A-Z) 

coni  ion  /mhster/  i  iirte-ico) 

CONI  101 1  /FLAGS/  LNODE ( 9 ) , RXPT ( 9 ) , LSUCH (3) , I FLOU ( 5 ) 

REAL  RXPT 
LOGICAL  LSUCH 
LOGICAL  NOPATH 

CALL  T0FNSGQ3) 

VLIJhTE  =  4 
OPT  I ME =5 
STOPE=ll 
E’CLTER- 15 
Cl  (TOUR- 13 
CIIGPVH=SO 
GETSPS=El 
GETLTR-5S 
RECALL =59 
EXIT =31 

I  IOFATH= . FALSE . 

IF (IIDF (I IDF (S) ) .  EO .  0)N0FATH=  . TRUE , 

IF 1 1 (OFATH ) CALL  LAHFS (176,35,56,0) 

IF (  .HOT. NOPATH) CALL  LAMPS( 176, 43,56,43) 

10  CALL  OKI NT (KEY) 

IF (KEY . EQ. -1 )G0  TO  10 

IFM'C'-y.-ti-MGO  TO  170 
110  IF  ■I"':'. V .  I '  LU-  •>:  TO  .1.50 

iru:  :.ia) -3 

IFL'OUTJ'j-G 
GO  TO  90*!' 

150  IFdlEY.NE.OPTI'OOO  TO  130 
IF (HOF ATM) GO  TO  130 
I FLOU ( 1 ) =3 
1PLOUO)  =S 
GO  TO  900 

130  IF (KEY . ME . STOPE )G0  TO  140 

I FLOU ( li=l 
IFLOU(S) =5 
GO  TO  900 

140  I F ( KE V . HE . DC  LTER ) GO  TO  150 

I FLOU ( 1 ) = 1 
IFL0U(2)-6 
GO  TO  900 

150  IF  ( KEY .  ME .  CNTC'UR ) GO  TO  160 
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IFLOUa  )=3 
GO  TO  300 

160  IF  ( KEV .  I  !T .  Cl  ICJ-TH ) GO  TO  170 

IFOK'FhTI  PGO  TO  170 
IFL.OI.K  1 ) -2 
IFLOIJiS) =2 
GO  TO  300 

170  IF C KEV ,  I E .  GETSF'S ) GO  TO  ISO 

IFLOIJC  1 )  -  2 
irLCUt2)=3 
GO  TO'  300 

170  T;‘  i !  '  1 ' .  i  .  ■; r' ! ;  j-  i  T  j  ’• 

r  •_/  • ' i  i.  i  ■  3 
Tn. .  i  !•  •  i 

r.O  |i_i  '''00 

,  '  200  iro-,7,M’':.rF':''Li..v'o  to  210 

r  1  H  "  '  '•  1 

r  i  jru  i.i'.  2 ’i-i 

"  '  GO  To  'Oi 

:  210  TFi  lo  .V.  I  .F'-'TT  >00  TO  220 

i.t-i..,  •K.li-i. 

!  O' O  ' -G  ' 
t.,o  •  i  'O' 

r.-.i  220  GO  TO  O'1 

At  o,-o,  GJvC  1  -t  01 

v  :  '.I'LL  ■!'...  !:  i  •<  ’ 

1 1 *'  1 1  i u;  it 

"  I  I’.i  !’> 

0  ERRORS  COiii-'J.  LOTTO'!  I  COi  iRLRTE 
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1 

2 

4 

5 

6 

7 

S 

Q 

10 

11 

12 

13 

14 

15 

16 
17 
12 

19 

20 
2.1 


25 

2G 


C. 

29 

30 


SUFFC'IJTIME  DFUPTH 

C  SUER0LIT1IE  DPWPTH  DRAWS  THE  PATH  IN  Tl 'E  COMMON  APE 4  ,  POLITE / 

C  IT  EPPECTS  TO  FIND  All  i  .CRAY  OF  LENGTH  55  CALLED  IPhTH  IN  THE 
C  CONI  ION  ArEA .  THE  LAUNCH,  ThFGET,  AND  TERMINAL  NODES  MILL  LP 
C  COLORED  I'lFPEPEI ITLY  THAN  THE  OTHER  NODES. 

COMMON  /ROUTE/  IFiYTFKCS) 

COMMON  /FLAGS/  LM0DEC9) ,RXPT(9) ,LSUCH(3) , IFL0UC5) 

C  PRINT  CIFCLF.  FOR  LAUNCH  NODE 
LWFATHCl) 

L2  =  IPhTH  (2.1-1 
I  EL  =  7 
-  1 

GEI  IT  (300) 

0.1- LIT  i  1  ,  10-0,  I  PATH!  4)  ,0) 

GENT (2, 110, IFhTH(5),0) 

(5,  1760',  0,0) 

(6, 140,6.0) 


ICCL 
CALL 
CALL 
CALL 
CALL  GF-UT 
CALL  GF-UT 


C  ON  FIRST  FA3S 
IF  (LI  .NE 
I CUT  -  1 
C  ALL  GPUT 
GO)  TO  ICS 


SET  UP  ENTITY  ONLY 
0)  GO  TO  90 

(7,1774.255,0) 


90  CALL  GPUT  (7.1 GOO 
C  DISPLAY  LEGS  AND  CIP( 
DO  ICO  iour  -1  LI 
J  =•  6 !  1 01  IT +4 


10,0) 
LES  FOR 


REMAINING  NODES 


31 

ChLL  gput 

(MT(IEL),  140, 

6, ICCL) 

3C2 

CALL  GPUT 

CM  T( I EL) , 139, 

3,0) 

O'? 

COAL  CFUT 

'll'  T (  TFL  1,53,  IPATKK  J) ,  IFATH(  J+l  ) ) 

74 

IE  Mir:  it 

1  '  1  ■ 

•  F'-L  IP'  .OP. 

TOUT  .FA.  Li)  I COL 

.*  V 

o- ;  l  '"  Or 

'  i  '  "!'■  L  MO 

U'i 

_  . 

COLL  1  '  NT 

'l  l  '  (PL)  ,’  M'-'O 

. i".0) 

3 

10  '.M  -  1 

,*■') 

ICO  CONT  I  I  ME 

41 

C 

FILL  III  110  DATA 

TO  LEAVE  SPACE 

IN  IDFL  ARRAY  FOR 

42 

C 

FUTURE  ADDED  NODES 

43 

IK  ( 101  IT  ,GT 

101  RETURN 

44 

105  DO  no  J=  IONT ,  10 

45 

CALL  GPUT 

(II  (T(IEL) ,  1774 

,255.0) 

46 

CALL  GPUT 

Ur  :T(  TEL),  1774 

.255,0) 

47 

C ALL  GPUT 

MP.Ti  JFIM  ,  73,0 

0) 

42 

0  AU  I..I-UT 

nr  -.Tl  I  EL) ,  1771 

255  0) 

49 

CALL  CP UT 

(N  Tt 1FL) , 1774 

,' 255,0) 

SO 

CALL  GPUT 

(1 1  T(  IEL) ,  1774 

,255,0) 

SI 

110  CONTINUE 

52 

rr,-j 

IPrLi .NE. 

0 .  AND  LI  IODE  ( 2 ) 

.  ME. 1) CALL  LEGTAB 

54 

FETLIFN 

55 


El  ID 


0  ERRORS  COMPILATION  COMPLETE 


tj  a)  >-* 


PAGE 


1 


NFLEVI 


VORTSII  FTH  IV (CO 


ooc-t  Hours 


SUP-ROUT  HE  DF-U  IGD  'U0l£>  _ _ 

c  sudrouth  if  pr .not*  allows  or  the  pcllt ion  of  a  node  tm-  Th-get 
c  launch.  or  rr-’O'  rev  ?».>?»- s  *ot  pk  fr  *•  iff.* 
r 

,;  ■  ■■  -  V  ■  t  ■  •  \ ;  •  t  •  I  ■  •  n 

r,  r 

re; v  o  revvo  r  .  tmv~.i 

r  ir  uons  .:v>.  t  o:  .  n.-r<F  .co>.  toythc?:"  r:rr-n 

'  *  o 

10  r  rot  t--  r:  V.  -ni  '  '  ’ov 

H  T-  0  '■  • 

ip  .ii  ;;i>  -  i.  v  •  i'i !•!•.  i  ">  5 

j  ■  lo  VO  J  ' I 

1  {  Ti  i'i  i  Hi  J  '  "  i.;  ,  !(•(<■  .J  V1 

I.1'.  .too  oTni 
I  i ,  r 

iv  »■  re  err  rv  >  rr  ■  •  r.p,-'o  Rip  the  TvxbT  hole  » ir  i 
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SI  IFPCn.IT It  (V  ['PI.J-.PS 

C  THIS  SUBPOUT  I  rip  TUANS  ON  SIGNIFICANT  POINTS  TO  BE  DT3FLAVFD 

CONNON  /NhSTEPV  I  INF (£400) 

C  DISCU>'/  RAPP'S  SIGNIFICANT  POINTS 
I  F  TP  =  I  i[F  <  >3 ) 

I  El  ID  =  t  IDF  <  1PTP ' 

IF  ilt.ND  .  E1'1 .  O)  CO  TO  30 

io  ro  r.o  j-i.ipriD 

i!  •' 

!p  ■;  '  '  .  I  I  _  -  "  •  u  ' 


t  1 

■  :  Lr:'  i  1  ■ 

'  ' .  H;  '  Tl  T "  :  T f  .  ' 

,01 

1  .'  I . 

|  POT  '  .  ’’  ' 

■i,l : i. '  i.  [FTP  t-IPOS 

1  1 ,01 

'  1  . 

■  'O.N  c.''" 

.n 

so  cor  it.!  no 

f  DTSrL'  O'  VT 

i.  i  '  T .  m  i 

cor  roinrs 

so  t;  -r  -  i 

'  1  T  1 

IF.'  T'  -  ;  ■: 

•l  <  ION 

} i-;  •'  T.!  1  M. 

.10.1.  O'  O' 

3  TO  SO 

p;i  -io  j 

,  rP' '!) 

1  r  ■ 

’  N'T-' 

\  ,i  i 

'•r‘;ir  ' 

Ji 

'  !  I.IT  '  !  .  1 

'  r  II F  <  IFT1M  II-OS 

1 ,01 

r  u. 

1  :  I.IT  < . > .  1 

o  Nr  r>  iptf-i-ifo;;:. 

-  i  .1 ,  o  i 

i  1  L 

t  .•  i..;  i  .  ■ ' 

J ) 

40 
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'!  r  r ■ 
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1  SUFROUTINE  D3P3C  N 

2  C  SUER  OUT  It  IE  DIPS CM  DISPLAY'S  THE  SCENi'^’O,  RADAR,  AMP  SAM  STTTs.  it 

3  C  EXPECTS  TO  KIIID  THE  POINTS  TOR  THE  1LPPAIU  AND  THE  C  ■ ' . E  V  IP. . TF  S  FeR 

4  C  THE  SON  AND  RADAR  SITES  III  AN  AREA','  H[F  WHICH  IS  LO'Otli  l'  IN  THE 

5  C  COHNON  hFEa  N-vNTCP.  THE  SCENARIO  HILL  BE  FOUND  III  ENTITIES  200  TO  £99. 


6  C  SEE  DOCUMENTATION  hS  TO  THE  FORM  OF  THE  MDT  APRAV . 


9 

10 


COMMON  A IA3TERX  HDFC2400) 
I ENT  *  199 


11  C  DRAU  IN  ORDER'  (1)  TERRAIN,  (2)  RADAR  SITES,  (3)  SAN  SITES 

12  10  DO  100  J  = 1 , 3 

13  IBNR  -  NDE(J) 

N  =  NDE(IPTR;> 

IF  IM.EO.OT  00  TO  100 
IRTP  -  I FTP il 

IF  iJ.OT.ji  00  TO  70 


14 

15 
1a 
1” 

IS 


n  c  rr 


,T|  r  ri'-VJ 


t.  ,  '  : 


'  l  p  hi  t  '  i  ■  i  tr  i .  i  ids  ,  i  r-TpH-t ,  mde  (  ip  rr  i-?  :■ v 
l  1  iN'  •  mi  :  •  ri'iR'i ,  mm 
1 1  P  "  I ' '  ’  A'  N:  •  c  IFTPl-3) 


so 


I  ■  A 


c  r>r,v.i  vr  r 


co 

.100 


~|'7, 

SO 


■  'N  •;  r  Mrs 
If  I, Pro,;,  >  I.  I!  •  ■  T.RNl'Tf  rniTT  JIDECIPTn  ,  1 11  '  1  T!  IP 
li  i  J  •  >.  •  •  •.!.  :,I  ,r  ||  N  T'f  PTITl’ Pi  fPTT  A  ,  i  i’ ■■  ■  !l  l;'' 

i;.-  ,  n.’.m.  l  i  .  ,  jii 
I  ''.!'  '"■NT 
I  ■  ■  '■  !  ...» I 
li  Ni  - 1:  irv: 

c.  'J.  •  E 1 1'  T(  IE.'  ITi ,  f  (OLD,  HpEC  If  TEN  ,  I  if.  }~>  IT  I  \  11 

Cl  I.  '■  ,  EM  ■'  , .  I 

•'.■.•Ml  I  HUE 
COUTH  "J!3 
PETUPI  I 
El  ID 
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1 

2 

3 

4 

5 

to 


c 

c 

c 

c 


SUBPOUTIt  !E  err;  I3G I  10 ) 
co; . AiIt-  tait<  id,  ieep 
SUBROUTINE  LM-Ti’-.-;  EE  It  ITS  r,LL  ERROR  I C STAGES 
POUTIiiE  E\T1.i‘.TS  EtiriTV  191  TO  HAVE  FERN  SET 

Each  line  uitn  h  Mm  : 1 1 iu; t  of  so  chhRmC  ilr:.. 

THE  RuUTIUE  SITS  III  h  LOOP  UNTIL  THE  RETURN 


FELON  THE  FCr.N'R’IO.  THI 
UP  TO  OLLOU  (  Ol;p  LINES 
AFTER  THE  HE:: AGE  IS  MS? 
KEY  IS  FEES- ED . 


9 

10 

11 

13 

13 

M 

IS 

IS 

17 

13 


1 

39 

3 

4 


23 

3?. 

33 

3-1 


■10 

-U 

■12 

43 

44 

45 
4G 
47 
43 
49 
co 


CALL  GLI  IP  Cl.  -1,01 
CALL  GLI  IP  (1,7,1) 

C  BLINK  •'  ■■[.FrSP-'  ••  MESSAGE 
CALL  C.ENTC  191 ) 

CmLL  GFUT  i  3 , 1 30 ,3,1) 

CmLL  GFUT  (107,140,6,0) 

C-toLL  GSCH  >19 1, to'1 
URITE  (IS, POO 1 

500  FORMAT  (SON  —  ERROR  —') 

GO  TO  (1,2, 3), NO 

1  CALL  GSCH  a 91, GO) 

URITE  (IS. 10' 

10  fcttiht  >s:c,  the  maximum  number  of  allouaele  uav  foints') 

CmLL  GSCNC 191 ,114) 

URITE  'IP, 11) 

11  ECRMmT  'SX.-'-lO-  MAS  BEEN  EXCEEDED !  - ) 

GO  TO  SOS 

2  CALL  GSCH  (191,G.O) 

URITE  (IP  20'- 

20  Foru-iT  <s'L  vac,'  point  hot  added  since  it  lies  too  ') 

CALL  GSCH'-  191 , 114) 

URITE  as,  21  I 

21  FORMAT  (EX, 'CLOSE  TO  THE  SURROUNDING  UAV  POINTS! a 
GO  TO  SOS 

C  HUN”R  FAT'  IVUTTI  "  Fr-ROP.  MUMF'-P  ENTERED  r.ctv.TF  R  TU  ■'!  H 
L-  ail  • 

COLL  'V  ’  I  r  i  "'!  ,  t  i  -t) 

u'  nr  i  ir.  IT  ’■ 

3000  l-'.'ML'T  (  '  II  TUTTED  NUMBER  IS  GREATER  THAN  THE  MAXIMUM.  ■' ) 
300S  FORMAT  ('  CHECK  Oil  THE  RkNGE  AMD  INPUT  THE  NUMCCP  AO  .11  FT 
GO  TO  SOS 

505  CALL  GSCH  (191.1G5) 

URITE  (15,510) 

510  FORMAT  ( I  OX,  'FFESS  ' 'RETURN' '  TO  CONTINUE  .  .  .  ' ) 

CALL  lE'.’I  I  191 ) 

r  l,l"IT  F'"  ~  -  '  '  T.  "t—r  —  Til  f*  T  T  (  "  ,r_  >  ITT;  I  ~1«-  ^■-.'■•-r- 

!  I  t  I 

■  LL  ■  I  o'" 

GlO  LL  '' '  '!  TN  - 

i;  'CUV  ','i  ro  T,j  r.t.O 

,  CL  M  O  i 

J.i'll'i'))  Ci 
LL  *  '  !  l'"LO  ' 

'  i  '.L  '  i  U  i'i  '  ' ) ,  i  9,0) 


:  LAVED, 


-100- 


in  L 


1 


t-T  LCYT  r-  TT  fTH  IV  fG  • 


r '  'r_,  |  i  *■ 


iij ;  u 1 :  i "  rr 

r;  •  ?;>  im 

r !  ,01111  m  i  :  ;i.  i ::•>) 

I •  i'i l  I !  > ' 1  ■  <  > .  IfO  ■:>  n  .  It  ..  r:,  .10.'  ■••CHnD,  H  !:  1 1 . ,3  !l  13/ 


r?F3 


r; '  f-1  •' 

I  I  '  I'i  -I) 

«; i i„  ■  if 1 1  ».-.i. .  ir  .  i i’i  r.,o:i 

o.i  •  <  n;:  v  '  i  J' ,  j-=i  ,  i;:o) 

Cl  ■’  L  VIC  u'-’l.O' 

MOP 

II!!' 

co;»  ilotioi  coi;;  i  r  n: 
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1 

2 

3 

•l 

5 

6 
t 

3 

9 

10 

11 

12 

13 

1-1 

IS 

1G 

13 

13 

19 

£0 

£1 


£4 


£7 


30 

31 


•?p 

33 

3-1 

?R 


3  3 
•10 

41 

42 

43 

44 

45 
4G 
47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 


SUBROUT  If  IE  GETLTP 

C  SUDE'OUTIME  GETLTP  ALLOWS  THE  USER  TO  SPECIFY  THE  FOSTTIOI1  CF  THE  LOU 
C  TARGET,  mo  RECOVERY  UwDES.  A  CURSOR  mR FEARS  DESCRIBED  EV  ENTITY  10. 
C  THE  USER  MOVES  THE  CURSOR  TO  THE  DESIRED  POSITIOM  AIID  FI  ESSES  THE 
C  ACCEPT  KEY  TO  SPECIFY  A  NODE  POSITION. 

cut tr ;ot i  *-ivnv  iattc  i£> ,  ief.r 

COMMON  /ROUTE-'  IFV1HC55) 

COMIION  /MASTER/  MDE(£40 0) 

COMMON  /FLAGS''  LNOPE 19), PXPT ( 9 ) , LSUCH C  3 ) , I FLOW ( 5 ) 

C  TURN  uFF  OLD  ROUTE 
CALL  GEOF (SCO) 

CALL  GLOP  1.310) 

Call  GE0FC311) 

ChLL  GEOF  (312) 

DO  3  J  =  1 , 1 1 

ChLL  GEOF  (J+149) 

3  CONTINUE 
DO  4  J  =  1 , 4 
CALL  GE!  (T ( 1 10+J ) 

ChLL  GFiJT  (£3,90, 1H  ,0) 

CALL  GLUT  (£4,90, 1M  ,0) 

CALL  GLUT  (£S,90, 1H0,0) 

I  IDF  (HPF i  9)-l+J)  ->  0 

4  CONTINUE 

C.  INITIALIZE  FOTH  ARRAY  AND  TURN  ON  CYCLE  TIMER 
I  Si.  OH  -  0 
I PTE  *  I  IDF (3) 

IPOS  *  0 
iphth  (l)  =  a 
iphTh  i £)  =  a 
ChLL  TOP MSG (G) 

CALL  GHUT 
COLL  G'"YT(  1. ) 

C  SET  LLVSOr  TO  OL'TF.MT  TPaCKDALL  POSITION 
CCU-  G'lP  OK  <  IN,  IV) 

Ci -LL  CM  f  r *-  10  1 

CALL  GKJT  ( 1 , 100, IX, 0) 

CALL  CPUT  (£, 110, IV, 0) 

CALL  GEON  (10) 

C  GET  IN  ORDER  LAUNCH,  TARGET,  AND  RECOVERY  NODES 
DO  100  J  =  4.1G.G 

K  =  FLOAT  <  J+E )  ••  G .  +309 . 

CALL  MESS  AG  vK-306) 

LS"CHt.]>  =  .  R ALSE  . 

CALL  GEOF  (130) 

CALL.  T-Or  I  ISGuU 

ChLL  Lamps  (0,?, IS, 130) 

5  I  ATT  ( 1  '>  -  0 
CALL  GSTT(O.O) 

C  CHECK  ON  IIITEPFUFTS 
1C  CALL  CKIMTU.F.'.A 

IF  A  LY  .EO.  -1)  GO  TO  10 


PAGE 
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VORTXII  FTN  IVCGl 


0005  HOURS 


IF  (KEY  . FO .  1  1  GO  TO  SO 
IF  (KEY  , RO .  191  GO  TO  75 
IF  (KEY  EO.  7'  GO  TO  200 
IF  (If,'  . EO .  IF)  CALL  DECLUT 
IF  (KEY  .ME.  *50)  GO  TO  5 


CYCLE  TIMER  INTERRUPT!  MOVE  Cl 
CALL  GTFhuK  ( I  , I  *  i  1 
I  SUCH  =  1-ISUCH 
CALL  GENT  (10) 

CALL  GF'UT  ( 1  .  100,19,0) 
CALL  (..FLIT  (R.ltO.IV.O) 
IF  ( I SUCH  EO.  0)  GO  TO 
CALL  LhTLOII  (IX, IV) 

GO  TO  10 


MOVE  CURSOR  TO  CURPENT  POSITION 


C  RANGE  AMD  EEmF'IMG  UPDATE 
30  IF  (.NOT.  LSUCH(l))  GO  TO  10 

CALL  RANGE  (IN,  IS') 

CALL  LAMPS  (0,0,0,130) 

GO  TO  10 

C  KEVDOAFD  INTERRUPT! 

C  SET  APFI-OFRIArE  ELEMENTS  IN  I PATH  ARPAY  TO  LAUNCH,  TARGET,  RECOVERY  POSITION 
SO  IFATH(J)  -  IX 

IFhTH(JcI)  -  IV 
HDF ' IFTRtIFOS )  -  IX 
ML'F >  IPTPUPOSTl)  =  IY 
IPOS  =  IPOS* 2 


C  SET  ON  FI'YJPE  OVER  THE  APPROPRIATE  NODE. 
CALL  CENT  (K) 

CALL  GF’UT  (1. 100,  IX, O) 

C  ALL.  GPIJT  ( 110,  IY, 0) 

CALL  GFOM  (!') 

G '  TO  lot 


K  GETS  THE  ENTITY  NUMBER . 


RANGE  AMD 
IF 


r::-  nit;:.  fcutiic  -  get  reference  point 

1 !.  T'.i’l'l-ff  1 ) )  Go  TO  30 


IX— 10) 

IS'  -  0 

CALL  RANGE  (IN, IV) 

CALL  NESShG  (I  -306) 

CALL  GLNP  (1 .  1 , 1 ) 

IF  ( .NOT .LSUCH(l) )  CALL  GLMP  (1,19,1) 

GO  TO  10 
3  CONTINUE 

SET  AGL  Al  ID  SPEED  DEFAULT  VALUES 
IFATH(C) “EOO 
IFATH'  7 )  --  300 

I path ( 12)  =  soo 

IFATH (1.3)  -  300 
CALL  DPUf-TH 
CALL  GD:.'N(3>0) 

TURN  OFF  LIGHTS,  HALT  CYCLE  TIMER  THEN  RETURN 
3  CALL  GEOF (10) 
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1 

2 

3 

4 

5 

6 

3 

9 

10 

11 

12 

13 

14 

15 
IS 
17 
IS 
19 
£0 
21 


24 

ES 

EG 


SUFFOUTIHE  GETSFS 

C  SUBROUTINE  GETSP  ALLOYS  THE  USER  TO  IIEHTIFV  PADAP  SIGNIFICANT 
C  POINTS  AND  VISUALLY  S.P.  A  MAXIMUM  OP  10  EACH  IS  ALLOYED. 

COMMON  ✓hTT/'  I  ATT  <  12) .  IEF  R 
COI  il  lOi  I  /M  nSTER/  t  IDF  I  2400) 

COMMON  /FLAGS/  LNODEO)  ,RXPT(9)  ,LSUCH(3) ,  IFL0U(5) 

C  TURN  OFF  OLD  SPS 

DO  3  I  El  IT =370 . 309 
ChLL  GEOFCIEMT) 

3  CONTINUE 

C  initialize 

I  SUCH  0 

IPTRMP'FiG) 

CALL  GHLT 
ChLL  GCVi'I  1 ) 

IEi  IT  =  3G3 
ChLL  TOPMSGCS) 

C  SET  CURSOR  TO  CURRENT  TRACKBALL  POSITION. 

ChLL  CENT 110 ) 

CALL  GTFhCK  ( i:< .  IV  i 
CALL  GLUT  Cl, 100.IX.0) 

ChLL  GFIJT  (2,  110,  IV,  0) 

CALL  GEO!  I  CIO.' 


29 

C 

GET  UP  TO  a  MAXIMUM  OF  10  RADAR  AND  VISUALLY  SIGNIFICANT 

20 

DO 

200  K=1 , 2 

31 

MLR  (Iprpi  =  0 

32 

ChLL  IIESSAG  (M-G) 

33 

DO 

100  J - 1 , 10 

34 

LSUCH 1  10  =  .FALSE. 

ES 

CPU.  Gr;oF  a  ••••».* 

C  OL  TO'  MSG' Mi 

1.  LL  •  •  .".,0,  1.30) 

37 

3 

5 

;•  ,i  re i  i  -  o 

39 

tj*« 

CALL  GSTT  f A ,  0 

*  lx 

41 

C 

CHECK 

CM  INTERRUPTS 

42 

10 

CALL  CKINTtKEY) 

43 

IF  IKES’  .  F.O.-l)  GO  TO  10 

44 

IP  (KEY  .EG. 7)  GO  TO  ISO 

45 

IP  (KEY  .EO.l)  GO  TO  50 

46 

IF  (KEY  .EO.  19)  GO  TO  40 

47 

IF  (KEY  .HE.  40)  GO  TO  5 

43 

49 

C 

CYCLE 

TIMER  INTERRUPT ,  DISPLAY  CURRENT  TRACKBALL  POSITION 

SO 

CALL  GTFhCK  CIX, IV) 

SI 

I SUC H  *  l-ISUCH 

52 

CALL  GENT  CIO.' 

S3 

CALL  SPLIT  Cl.  100,  IX,  0) 

S4 

CALL  GTUT  (2, 110, IV, 0) 

SS 

IF  f I SUC H  .EO.  O'  GO  TO  25 

EG 

CALL  LATLOfl  'IX,  IV) 

57 

GO  TO  10 

S3 
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59 

CO 

61 

62 

63 

6- 

65 

GS 

6? 

63 

69 

70 

ri 

i  c. 

7  3 

74 

75 

76 

f  . 

I  -2> 

79 

r° 

71 


C  UPDATE  RANGE  At  ID  FT  API  1 16 
£5  IF  (  .HOT.LSIXtTl))  GO  TO  10 

call  range  a::, iv) 

CALL  LAlir’b  A.',O,0, 130) 

GO  TO  10 

C  RANGE  AMD  FFAPIt  IG  FOUTINE 
40  IF  (LSUCHC 1 ) )  GO  TO  £5 

I  >'=-100 
IV  =  0 

CoLL  FAMGE  (IX, IV) 

CALL  NESS, iG  (K.-i-S) 

C  hLL  Lh!  if  S  (0.0,0,130) 

IF  '.NOT.  LSUCN(l))  CALL  GLMP  (1,19,1) 

GO  TO  10 

C  ACCEPT  \  EV  INTERRUPT.  PLACE  SIGNIFICANT  FOINTS  IN  NPF 
C  AND  DRAM  SVNCOL  IN  F PAPER  LICATION  ON  THE  SCREEN. 

SO  IIDrili  TP+2FJ-]  )  =  IX 

Ml'F  ( IPTR+Et' J)  =  IV 

C  TURN  ON  SIGNIFICANT  POINT  F.NTITV 


ChU  !  .Ft  IT  I  .V-; 

I."-* 

!  J  ) 

*  •  .  1  *  , 

NT  i.  .  •  i 
c : t  i-  < 

• 

1  ! 

■  (  1  ■) 

;  i- j  ,i 

oc'iTtiv : 

l o 

Mi.  VTP 1  -  (-1. 

V.n 

1  ’  i  i!  .  '  *  1 

C  C-t  IT  !.i  9" 

:  >  c  PIT.  rr  TO  RLTI.'  N  TO  'YU. TUG  PROGRAM 
'"U  Cc't.L  i .LH:-’  ( ’  .-l  V 

T:  C  ■  >  ,L  LO  ' '  '  VO  ' 

( ;  .i.L  I  :  ;  ~0i  i  i 
94  (.0!  L  r  t.r.  .  jo,;; . 


’.-■J 

C  :  LL  U. 

.v  iJM 

9io 

C  ('LL  G!.. 

•f  10) 

»J7 

Ci 'LL  GH 

.T 

9  1 

CnLL  G'. 

or  to 

QQ 

IhTT(I) 

-  0 

ICO 

CALL  GS 

IT (0,0) 

101 

RETURN 

102 

END 

0  ERRORS  COMPILATION  COMPLETE 
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iC.E  1  NRLEVI  VORTXI I  FTN  IV(G)  0003  HOURS 

1  SUBROUTINE  It  I3EI I  (HAP,  IVEPS) 

2  C  SUBROUT 1 1 IE  It  r. El  I  RE  ADS  FROM  THE  DISK  THE  SCEITOPIO  INTO  TIC 

3  C  MASTER  DATA  FILE. 

■1  COI  it  Ml  /MASTER*-  MI/FIC-lOO) 


5 

It  H  E' 

.Sr  IFCBt  13) 

.  sc  r;i  c  1 3 

.2-1) 

6 

DAT  A 

S':  Lie.  i.,i). 

S'.  FI  IS '  2 . 

1 )  ,  SC  F.I  03,  1 )  /2I-  ISC ,  2HEI 1 

.2' 111- 

DATA 

sc  ei  :e  a ,  2  i  , 

S'.  21  IE  ( 2 , 

z. )  ,  bCEt  -fL  i  o ,  C )  /cJi  f->C ,  cKEm 

Li  li 

i  ■ 

n 

DATA 

SCENE U  ,3.', 

sc  i  :i  ;l*  ( 2 , 

) ,  SCO  IE  ( 3.3)  /CHIC ,  r.'HFI  1 

,21. 

i  - 

9 

DAT  Ei 

sc  ei  «e  (i  -n 

S'.t:ne<2, 

1 ) ,  SC-Ei  IE  ( 3 ,  -1 )  /cl  ISC  ,  c'HEi  1 

.2110' 

10 

DATA 

SCENE a ,S) , 

S.  LI  IE  (2, 

) ,  SC  Ei  E  ( 3 ,  S )  /21-ISC ,  EDO  I 

on 

~  / 

11 

DATA 

SC  Li  IE  i  1 ,  >3  j  , 

S'.  F.i  IE  (  2, 

) ,  SC  O  iF.  ( 3 ,  C )  /  21  IC  C ,  £*-l  1 1 

"  .  \'i_ 

12 

t'ATA 

SC  EMU  l,7.i  , 

S' LI  IE  (2, 

' ) ,  SC  F.I  IE  ( 3,  7 )  / 21-LC  ,  21-iLI  1 

ei  : : 

E  / 

13 

DATA 

SC  El  C 1 ,  S  i  , 

S'.r:ic(2, 

)  ,  b .  Li  iE  *  J ,  <?• )  /  lJH  .:  L  ,  ^  UT-J  i 

L ,  1 

1-1 

DATA 

SCENE a ,9i , 

S'i:i'E(5, 

*'  ,  ic. 3  ,y  )  /cHii'y  c ‘HiiI  * 

21 !  1 

IS 

DATA 

SCENE' 1 , 10) 

,  see  IE  1  2 

10 '.SCENE' 3,  10)  •••EHSC.r: 

I'll, 

0-173/ 

16 

DhTA 

SC  El  €(1,11 

.SCO  IE  (2 

11).  SC  El  CM,  11)  /2HSC.O 

Oil, 

El  03/ 

17 

DEiTA 

SCENE' 1,12) 

,  S'.  El  IE  1 2 

12)  ,S'.EHCi3, 12)  /'EM SC. 21 

,1 1 1 , 

U  MS  ' 

IF: 

DATA 

SCENE' 1,13) 

.  s1.  Ll  !E'  2 

13) .SCENE (3. 13)  /2H  0,2' 

"Oi, 

pm  -t/ 

19 

DhTa 

F.i  »£  C 1  f  i  -l ) 

,  'z'.  LI  Jb  C  c! 

i-1) ,  SoEl  l'E'.3, 1-1)  /2H..C.2I 

L.'  1 , 

O  0-1  - 

20 

DATA 

SC  Li  C  i  1 .  IS) 

.SCO  'Ft 2 

15), SCO  'E( 3.  IS)  /2HSC.2 

ON. 

2H  7-1  ' 

21 

DhTA 

S'  FJ  iE (1,1G) 

,  SC  Ll  11.  ( 2 

16) .  SC O  IE ( 3 ,16)  / 21  iSC ,  V 

-!LI  1 , 

r‘H  ' -t / 

22 

I'mTA 

S'.' Ei  2(1,17) 

.SCENE (2 

17),  SC  El  IE  ( 3 . 1  T  )  /2HSC .  El 

ON 

EH  IS  • 

23 

data 

SCENE! 1 , 13) 

.SCO  if: (2 

13) ,  SCO  IE  (3, )  ")  -  2.1-100 . 2; 

0.1 1. 

E-OS-' 

2-1 

S'.  Ei  'E  ( 1,19) 

,  S'.  El  IE  (  2 

19 ) ,  SC  El  111  i  3 . 19 )  /£l-:;c  ,  El 

L.N, 

El  0  ■ 

25 

DATA 

SC  RISK  1.20) 

.SCO  El 2 

20).  SCO  0(3,20)  /2II3C.  O 

"  1 1 

\.\xry 

PC' 

D'  iTh 

1 ,  i  > 

,C|'0  ':S2 

H)  .S'  O-'Ri  3,21  )  ,  1-rC.O 

•’  :  1 

L-  • 

1. 

,  ’  1 

DATA 

•  t  .  i  J 

.  7  f  !  ' '  .  (  r; 

•  •)  .  . .3,: 

■:•:),•  ;.r  .•  •  " 

] "  i.  p  c  r*  i  ■■  n 
I"'.  C'-O'  -  '"1 

V  '  ! .1  ",  ,  t  c  .  .  .  r,  yn 

1 1."  v  |.|  -  i  ••  .;*■ 

1  ''  T 0  SO 


—1  • 

25 

-  i  ' 

IV. 

.  S  '1 .  1,  ) 

FFTI.IFI  I 

Il.lHl. 

1  - 

IIhPh  IVOO 

-I'll 

SO 

IF  CL 

7' ) 

-  SCO  IE  ’  1  , 

T  t .  t|-  Oil) 

•il 

IFAD 

9 ) 

“  SC  EMU  2, 

INI  ''.H  i 

SO 

.'•.I 

IFCB 

i  io)  -  S'  or.:' 

3, I MUCH) 

*14 

CmLL 

vr 

.TEN  (21,13 

, IFCB.C) 

45 

F'EhD 

CF; 

1)  ( ITOF  i.  J  ' , 

J= 1,2400) 

46 

CmLL 

,.‘X 

I LOS  (21,0) 

47 

RETURN 

43 

END 

0  ERRORS  COMPILATION  COMPLETE 
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c 

o 

r 

on  n :r.  PCixr.i i  in  mi  rr,'  nriiirr- 

103. 

6 

c 
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Rh'O  r .Pit  ITS  TH 

THE  o.:- 

r 
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s 

cc 
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Q 

10 

C  Cl  11 101 1  - 1  ImOTE"’  1  IDE  <  2-100 ) 

u 

CALL  CEO)  il03) 

12 

COLL  GDI  1 1  1  i  '-*31 

12 

IP IP  -  PLFiSi 

M 

C'vFhOT  -  FLC'wTH  IDraFTPiS) ) 

o  102-1. 

IP 

K, 

c 
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PAGE  1  MRLEVI  VOPTXII  FTN  IV<G)  0P03  HOURS 

i  sucfoutiie  LiiiTvp  *  1 1->.  iciiTj 

a  C  THIS  SUr.Fol.n  Its:  L-v-US  FOR  A  GIVEN  OIT1TV  ITS  LINES  IN 
3  C  VARIOUS  COLORS  ►< •*.»  !  oSN3.  Co.' ITPOL.  F EG]  STEP  lELDT-.NY  ?) 

•t  C  CONTROLS  TIE  LINE  T  ,  i  L  .  DISPLAY  REGIE -TLR  '.CLEMENT  4)  CENT  REES  CC 

5  L'mTi i  IEED.IYELUl.  I'.RANG.  IGf-EEN  /0.1.Z.3'' 

6 

7  CALL  GENT  CIEHTj 


o 

GO  TO  f 1 , 2 , 

3 

•  1  s 

G  7 , 2 , 9 

,  10)  .ISO 

9 

C 

LINE  TYPE  1  - 

RE 

\)  I  - 

VEIL'D  LINE 

10 

1 

CALL  COLOR 

<  I 

el: 

U 

C-hLL  CPUT  ( 

3 , 

130 

,1.5) 

J2 

F'ETURi  1 

13 

c 

TERPnIM  TYPE  2 

:  - 

Ml 

.LON  DAEI 

HED  LINE 

1-1 

2 

ChLL  i.oL0R 

d 

YEl.l 

J,l  1 

IS 

CALI.  GPUT  f 

7 

i  I'O 

1.3) 

1G 

F  El  lip!  1 

17 

c 

LINE  TYRE  3  - 

I  jpl 

i igf 

DASHED 

LINE 

13 

3 

COLL  C'LOR 

i  Ji 

f.'Fi  .* 

* 

19 

ChLL  GPUT  ( 

3 

i 

i  .2) 

SO 

f-LTun  i 

21 

C 

LINE  TYPE  -1  - 

CP, 

MICE  DOTTED 

LINE 

7'  3) 
L-C 

4 

C  ALL  C  OLC'P 

(I' 

rr  i.  ■; 

101 

23 

CALL  GPUT  ( 

3  _ 

1 30 , 

1.1) 

cM 

F.ETU-:  i 

25 

r. 

LINE  TYPP  5  - 

r.r: 

EEN 

IOTTFD  1 

LINE 

5  i  ,.,i_  e  c  i '  t.  ■.  :.f  1 1 


c-m  ,  i  "  jr  <"  <  ~  ■  i  n 

r  L  T  *  .  r,  1  T:.- 

G  >.  ’.I.  I  ■■  ■  I  1 

'  •  I .  '  i 1 

I’.'E  ' 

•:  ltn  :  r.i  •.  v  -  r  •-•••  '  -"-r  ••Tiro  ltnr 
.  •'  l  •. ’  • 

■_!,  !.'•  i  :  ,g> 

i :  am 


r 

r 

<-4 

1 

~1 

--M  E" 

c 

i. »  L  C  OLCR  1  1 Y  LI. 1  i-i ' 

V  j 

'i’l 

call  g'  nt  <?.•  > . 

1  ■  (  I  FI  1 

?■  i 

'  1 .  1 

-11 

C 

line'  TYFr:  9  -  Gr  •  l-:i  I  1 

iSH-DO' 

42 

9 

C  ALL  C  C'LOR  f  I C  Lc  N  1 

43 

ChLL  GPUT  (3,130,1. 

3) 

-14 

RETURN 

45 

C 

LIME  TYPE  10  -  YELLPU 

SOLID 

43 

10 

CALL  COLOR  dSELUYi 

47 

F'LTURM 

43 

El  ID 
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C  SiJDROUTltC  WEGPhG  M'-fUiVS  FCLOW  THE  SCI  Mr.FIO  DCFprR  A  I T  ‘  ns 

c  descriping  nil  1 1 i  km  oh  mi  ef'yr  mlcv-age.  tic  hw  i.e~:  r>  for 

C  THE  MESSAGES  IS  SET  UP  IN  ENTITY  131 

C  ELANK  OUT  MESSAGE  (TEAS 
COLL  CSC  1 1  i  131.0 
WRITE  as.  1110.1 
CALL  GSCN  ( 191 . 60) 


10 

WRITE  as.  11101 

11 

CALL  GSCN  (191.1141 

12 

WRITE  (15,1110) 

13 

CALL.  GS'IH  i  IV!  .  1 33 ) 

11 

WRITE  as,  1  lieu 

IS 

1C 

17 

13 

1110 

FOE!  1AT  (  -  a 

GO  TO  (100.2P0.300, 

3S0 , 400 , 450 , 500 , 550 . COO , 650 ) , NO 

C  MO’ 

v<E  More  MKSSnGE 

19 

100 

C  i  CL  GSCN  (19 1,3) 

20 

WRITE  (15.110) 

21 

no 

FCvTIhT  ( 157,  ••—MOVE 

:  NODE— ') 

C.  i_ 

CALL  GSCN a 91 .50 ■ 

23 

WRITE  (15,115) 

£-4 

ns 

Fan-vr  ( ■  mc'YE  ioce 

:  TO  DESIRED  POSITION  AND  PRESS  "ACCEPT" 

STS 

L-. _ 1 

CALL  GSCM  *191,1141 

ss 

WRITE  (15, 120) 

27 

120 

P  'J-:l  1AT ( ••  'RETURN  '  ' 

KEY  REPOSITIONS  NODE  TO  INITIAL  LOCATION 

23 

GO  T 0 

30 

C  SELECT  NODE  MESSAGE 

31 

200 

ChLL  Gscuasi  ,3) 

32 

WRITE  (15,210) 

33 

210 

FORMAT  (MX.  •  -SELECT  NODE—') 

34 

CALL  OSH  an  CO) 

cS 

NRfTF  ML  215) 

a- 

2.15 

t ' vr i  '  i '  ••!••• 

’■i|  1  TO  POSITION  THE  Cl  f'Sivo  a  vp  Ti  "•*  '  ) 

220 

i  .!.  i E  » =.s, 

r '.•!  i '  iT  *  1.-:.  .M’sn  r.ooz  and  press  the  "accept'  lev' 

*?  ") 

r,0  7  ,j  p'  -’i 

41 

42 

C  RANGE  AND  HEARING  MESS 

AGES 

43 

300 

ChLL  GSCM  (191,5) 

44 

WRITE  (i 5,1.310) 

45 

1310 

FORMAT  MOX,'  —  RANGE  AND  HEARING  — ') 

46 

ChLL  GSCH  (191,50) 

47 

WRITE! 15,1322' 

-\2 

1322 

FORMAT  ('  SELECT  FEFERENCE  POINT  WITH  CURSOR') 

49 

ChLL  GSCH  (191,114) 

SO 

WRITE  (15,1325) 

SI 

1325 

FORMAT  ('  FREES  " 

ACCEPT"  KEY  TO  FIX  REFERENCE  FOINT') 

52 

CALL  GSCN  (in,  16?) 

59 

WRITE  (15. 1345 > 

54 

1345 

FYTWT  (  '  PRESS  ’  ’ 

RETURN"  KEY  TO  EXIT  .  .  .') 

55 

GO  TO  999 

53 

57 

C  LAUNCH  NODE  MESSAGE 

53 

350 

ChLL  GSCN  (191,50) 

-1 17- 
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59 

WRITE  05,1350) 

60 

1350 

FORI  iAT  (  '  LOCATE  " 

61 

GO  TO  475 

62 

63 

C  TARGET  NODE  MESSAGE 

64 

400 

CmLL  GSCH  091,60) 

65 

WRITE  05,1400) 

66 

1400 

FORI  IAT  (  "  LOCATE  " 

67 

GO  TO  475 

63 

69 

C  RECOVERY  MODE  MESSAGE 

70 

450 

CALL  GSCH  091,60) 

71 

WRITE  05,1450) 

1-150  FORMAT  ('  LOCATE'  "RECOVERY"  POSITION  WITH  CURSOR.  TRESS " ) 

475  CALL  GSCH  (191,114) 

URITE  05,1375) 

1375  FORMAT  C  "ACCEPT"  KEY  LJHEN  CURSOR  IS  OVER  DESIRED  POSITION") 
GO  TO  999 

C  RADAR  SIGNIFICANT  POINTS 
500  CALL  GSCH  0  91.00) 

WRITE  05,1500) 

1500  FORMAT! "MOVE  CURSOR  TO  POSITION  CF  RADAR  SIGNIFICANT") 

GO  TO  525 


C  VISUAL  SIGNIFICANT  FOINTS 
550  CALL  GSCH  091,60) 

URITE  05,1550) 

1550  FORMAT  ("MOVE  CURSOR  TO  POSITION  OF  VISUAL  SIGNIFICANT" ) 

525  CALL  GSCH  091,114) 

WRITE  (15,1555) 

1555  RORMAT  ("POINTS  AND  PRESS  ""ACCEPT"'  KEV .  WHEN  COMPLETED") 
CALL  GSCH  091,163) 

WRITE  (15,1560) 

1560  FUPM-iT  (  TEE  :S  ""RETURN""  KEV.  ') 

GO  TO  o  .9 


C  RECALL  5CE1M P 10  MESSAGE 
600  CALL  GSCH  (.191,6) 
WTTTE  P.5,  D  v  )  i 
ChLL  GSuH  091,60) 


cm  mc c-c,v r- 


ICO 

WRITE  (15 

101 

1600 

FORMAT  ("! 

102 

1610 

FORMAT  (" 

103 

GO  TO  999 

104 

JO- 

r  C.T OC-r-  r*r*r-*  •  'vf? 

1  o  -• 

1  V’’1 

1  O', ' 

I  ”  11  i-.  p.S 

io : 

cell  H 

UP 

W”  TIE  OS 

on 

l  oi  '1  ’■  rr  '.  1 

j  1 1 

10^0 

I  i.O  PT  i  ' 

1  ’  7 

fv  i  TO  n 

1.  1 

It  4 

orn 

C  1  L  AP.O!  ! 

1  ts 

•V.  IMP! 

1  'T; 

O  !!.l 
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on 10  Hour 3 


1  EUEPuhtii  ie  mom  I'l'E' '  MODE) 

2  CO:  1M>ji  I-  mTT -'Ii  iTT  US',  ierr 

3  <: 0! Ii  ivi  I  M-OUTE/  ir-HTHuIS) 

•1  C •:■!  .1 1*;.[ |  .  FLOGS/  LMODEUOj  ,RXPT(9)  ,LSIJCH(3) ,  IFL0UC5) 

5  CALL  NESE-AGF  1 ) 


t~ 

7  C  SUrPXITII'F  MSVHOP  ALLOWS  THE  UEER  TO  MOVE  THE  POSITION  OF  A 

S  C  MODE  aLOUG  THE  strive  TmTH.  RETURN  KEV  *7  WILL  REPLACE  THE  HOL'E 

9  C  TO  1 TS  CF  10 Ii  1  >L  Fa'-  I 1 01 1 . 

10  C  NODE  -  THE  NODE  THhT  IS  TO  CHANGE, 

1  1 

12  C  GET  THE  CUiTENT  FO-ITIOH  OF  THE  TRACK CALL 

13  CALL  COF»>-aX.lV) 

M  CALL  G'IFhC:;'  ISOLD,  I'. OLD) 

15  I SUCH  -  .TRUE. 

16  I  =  61 1  iOPE~2 

17  CALL  GENT i 300) 

IS 

19  C  GET  ELEMENT  NUMFER  OF  THE  NODE 

20  I EL  =  1+GfMOPE 

21  ChLL  LaM'-SC0,0,1G.130) 

22  Call  gnlt 


“l  0 

C2_‘ 

Call  gc 

\T(1) 

2-1 

S 

IATTCl  1 

-0 

£5 

CALL  Ci'3 

r  r '  o .  o ) 

cb 

10 

CALL  (M  11  IT  (KEY) 

£  3 

IF  ( KEY 

. EO .  -1)  GO  TO  10 

2  T 
£9 

IE  (KEY 

.EO.  D  GO  TO  £0 

30 

IF  (KEY 

. Ea .  7  *  Go  TO  25 

31 

IF (KEY . 

EO.  12) CALL  DEC U.JT 

32 

IF  (KEV 

.  NE .  40)  GO  TO  S 

?.»  c.  CYCLE  TIMER  IMTLFRUTT'  DISPLAY  NEW  NODE  POSITION. 

77  C  i  ‘LL  C-1  RAC  Li  V  '. .  i 

'•  ,  i  :  L  l<  L  1  '  '  .  tv  ••  ,A.  IV,  S' 

c  ll  < 

u'LL  i.  C  (  j;  L-  • ,  r_’  ,  TL ,  TV ' 

".  4  ir  1  . 1  ’■"■T  .  T-I.!  |,  I  :  ,i  L  I  i  iTLON1'  IX.  IY' 

.;■>  IE  .  l,_i  '  !-!<■  I  i  ’  ;  u,.  M  1  CL  LL  P<  >H9E  (IX,  IV) 


•11 

I  SUCH  =  .IDT.  ly.LH 

•  !£ 

GO  TO  10 

•13 

r 

94 

C 

KEY  INTERRUPT! 

45 

20  I  PATH  ( I )  *•  IX 

46 

I PATH'  I H-.l  )  =  .IV 

*•>  • 
A? 

c 

SET  OFF  CYCLE  TIMER  f  1  !D  PREFARE  TO  EXIT  FROM  SUFROUTIME 

*19 

25 

C"LL  CiMLT 

cr.O 

Ci  LL  CiCVT'O) 

1 1  .rL  I 


0  I  1  'OF'.  ;  M.  AT  1 1  I  •:  ■;  |  •*  :  i  it 
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GO 11  HOURS 


1  SUBROUTINE  OUTSEU  (I VERS) 


2  COMMON  /!  METIER/  I  IDE  ( S-ICO) 

3  common  ■  'mOI in  i/  inropiiaEO) 


A \ 

T NTEGER  c0  FJ  IE  ( 3 .  £0  j  .  IE CB C 13 ) 

5 

DATA  iXEMEU, 

1)  OEMS  (S',  1) 

.SCENE (3, 

1) 

/2HSC.2HEN 

,21112/ 

6 

DATh  EC  LI  IE 1  1 , 

£),S0KIC(2,  2) 

SCEMEC3, 

2) 

/'clH  i'C ,  cHli  \ 

tJi  ' 

7 

IhTh  SCEI Ell, 

3),S(.tl!Ei2,  3) 

SCENE! 3, 

3) 

/ciHL'C ,  dHr.f  ^ 

c,'i !  _ 

Q 

DATA  SC  L!  IE  C 1 , 

A)  ,S'.EIIS(2,  -1) 

SCENE l 3 , 

A) 

/ c!MbfJ ,  rJK  iE  *  ^ 

2'  1-12/ 

Q 

DhTA  SCSI  E(l, 

S) .SCENE! 2,  S) 

SCENE (3, 

5) 

/dHb C  c,i  'u-f  i 

iJ  U  i-* 

io 

DATA  SCENE (1, 

£■» )  t  O !' c  C  c! ,  6 ) 

SCENE (3, 

6) 

/  c.'HbU ,  izh  .V-  f ! 

21 123/ 

ii 

DATA  SOL-. ME (1, 

7) ,ScEM2<£.  7) 

scei  ;e  c  3 . 

7) 

•'SHSC  ,  c>  1 J  1 

c.i 

M  *  Si-E-MhAl, 

S ) ,  SC  LI  IE  1 2 ,  S) 

SCENE' 3, 

S) 

/c'H'ib  ,  d riu  >  ^ 

L-l  1  1  x 

13 

DATA  SCENE ( 1 , 

9  j  Minos.  9) 

SCF.NEC3, 

9) 

/c'yX r.-O,  r.r'o.l  . 

EMM  / 

M 

IOTA  S'.  El  M  >.  I  , 

ico  son".: 'R.io.i 

'c-.r:  iEf3, 

I'M 

:L;  r  '  '  .  1 

rj-*  :■)  -■ 

xr 

i «*. 

I'.VDI  V '.  d  >  '  . 

t  i  ii  ■'  i  ! ;  i  r; .  1  I 

•  :*.i  *i  0 . 

1 

1  1  1 

1  '  t 

/  f  '*•  1  ,  '  i 

i  ■ . 

. 

r,  .v»  •  *:  ■.  t  .* i ! 

I  V;Y,  i  [ 

-  *  i  .  .  .  ,  .  1.  > 

r.-i  i  ,  ;.r  l,  'i 

r  .  •  ’  ;  (  ‘0  ,  i.'.-A 

‘  '.  [:.l  r.i.V 

;*"i  '!;  >  !;  ^ 

^  1 

!.  •  ;  * 
t r;  1 

/h.  1 

✓'u  r  .  .  •  '  ,  ; 

1 . 

i  a  i  ■  :  '  1  O'  I  r  .( 

10.' 

.'El-"  ' 

?.  1 

!  '  '  A  i  •'  i  :  •  !  . 

i  •  i  .3  r.  1 

:.  .■  10  3. 

1.  v*  *1 

m-m  ■..•-■••  1 

,  !  1 

22 

i.'t  i'i'i  i  •  d  .(  i. , 

1 1  a 

■  1 .1  • . '  , 

1  . } 

/  r!  1  -  ,  «■ 

■  .  ;  1  1 

1  r'i  1  1  ’< 

'  :  1  1. 

!  VI 

'  ,  • 

• 

rM 

DATA  '  1  ’ 1  . 

1 1’  •  »_  i  j  ■  .1  r\t  ;  \vi 

,  ’.  'J. K-.k7<, 

1  !  Vi 

/  \ 11 !  t 

;;:r, 

irciv'A  ■  0 

cl  i 

ll  »  ’  '  *1  '  *’• 

v".i\  •  ::r.T 

>  •-•dr  Api'  7'  1  —so 

i:.i  i  Ti  ■" .1 1 , 

;i 

[I  .  1 

u  •  v  * '•  - 

;  V  .  '  T  1  "  t  M 

'  !/5 

i  i 1 1.  mi  i 

1  1  t  1  i  .  ,  M  *1 

-j 

1. "  I  1 F.  f  IE  ■'  ( i 

i: •:  1 ,r- i  .e-ioo) 

1 

«•'  t  1  ,  V'  \J  *•“  ( 

‘.Ml 

*  ;r* 

1  1  Lr  "i  I 

[■  /  •;  i 

0  LRFOr 

'■■3  CCi".  I.I..A riAi  1  cot 

i'  LOT! 

-121- 


PAGE 


1 


MFLEVI 


VORTXII  FTN  IVCG 


0011  HOURS 


1  SUEROUTII  IE  PAMGE  (IX,  IV) 

2  C  SUBROUTINE  P-MIGE  CALCULATES  AMP  PIPTLAV  3  THE  RANGE  AMP 

3  C  BEARING  FPOii  THE  CUE '  "F  TO  A  PEFLFENcL  POINT.  THE  I  1  AT 

•t  C  PASS  THROUGH  RmNGE  SELECTS  A  FEFEFEHLE  POINT.  ALL  EUI  ..POUF  NT 
5  C  CALLS  CALCULATE  .4 IP  PJ-FLnY  PH E  F>  HOE  AMP  BEARING.  THE 
C  C  F'A!  IGE  IS  CALCULATED  III  NAUTICAL  MILES  Hi  ID  BEARING  IS  MEASUr  EP 
?  C  FROM  MORTH  FuR  3S0  DEGREES. 

S 

9  C  PARAMETERS 

10 

11  C  FIRST  PASS  - 

12  C  IX  -  NEGATIVE  NUMBER  LESS  THAN  -10  TO  IDENTIFY  FIRST  CALL 

13  C  IS'  —  I  Hi  ii.'FLD 

1-1  C  THE  CURSOR  COORDINATES  ARE  PASSED  PACK  TO  THE  CALLING  ROUTINE. 
IS 

lb  C  AFTER  FIRST  CALL  - 

1^  C  IX  -  X  POSITION  OR  cur- SOP 

13  C  IV  -  V  Pus.  IT  ION  OR  CURSOR 

19  C  NOTHING  IS  ALTERED  IN  THE  SUBROUTINE, 

£0 

21  COMMON  /HhSTEF/  NDR( 2-400) 

23  COMMON  /ATT/  IATTi 12) , IERP 

£3  COMMON  /FLAGS/  LI’ODEO)  ,F0  PT(9)  ,LSUCH(3) ,  IFL0UC5) 

CM  IF  (IX  .GT.  -10)  GO  TO  SCO 

2> .  c  RIFST  FASS  section 

22  C  FF.ELIMIUtO-TES 

2~  CALL  ML' S.:-v:,(3) 

23  CALL  Li  .1  P-  £.  <0.0,  i.'i  .IPO) 

TO  n  .i  | .  T'  •'  I  •  j  '  ’ 

■  I.  iir  '  'Lo  i . ■  i .ro 
i-iLL  UNi.LI  IK 

3H  C  CHECK.  ON  INTERRUPTS 
PS  S  JATT  f 1 1  -  0 

PS  call  i.  ttt  ro  or 

7  T  10  (.•  L  L  •  '  :  "I  '  |  '  .v  ' 

3;  IF  M  .7  .IV.  -1)  CO  TO  10 

;  n  i  f  r ;  r:v  rv.  v  go  to  m o 

•  IF  1 1  i.7  .  E".  7"<  r,o  TO  poo 

■11  IF  (KLV  .HE.  -JO)  GO  TO  5 

'13 

43  C  CYCLE  TIMER  INTERRUPT 
«M  CALL  GTPACK  l IX, IV) 

-IS  CALL  TO1. LAS  (  I)  OLD ,  IYOLD ,  IX,  IV, 5) 

-lb  CALL  GENT  (10) 

-47  CALL  GPUT  (1.100,  IX, 0) 

-13  CALL  GF'IJT  (2,  110,  IV,  0  > 

49  COLL  LhTLOM  (IX.  IV 

50  GO  TO  10 

51 

S3  C  ACCEPT  key  INTEPFUPT 

S3  C  REFLFEHCE  POINT  IPS  BEEN  IDENTIFIED 

S-l  100  C ALL  GTBrtCK  '  IX,  IV 

SS  PX  »  FLOAT)  IV 

SG  F'Y  =  FL'.viT  (IV) 

SP  CALL  GENT  (lSV 

S3  CALL  GPUT  ( 1 , 100, IX, CO 
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0011  HAL 


6?  <:  ALL  GPUT  (£,  HO,  17,0  > 

60  LSUCMt  1 )  -  .  TRUE  . 

61  PLTUPN 

300  CALL  TOF:; iECx  £1 
CALI-  (..EOF  (  160  i 
PETUPI I 

C  SUESEOl'ENT  PASSES  AFTER  THE  FIRST 

63  C  RUBEEP  BAND  LINE  BETWEEN  2  POINTS 
TO  SCO  CALL  Ae.N  1  t  l  V  A1 

71  CALL  i.if-UT  .  7.S3,IL:,IY) 

"2  call  r,~  C)  i  ir  oi 

73  IMP  -  I  '  "O' 

VI  i  •  ,  !  ■  ;'■>  «  1  ’ 


0  C’'  \/ ' 

•  ;  t:_  r , . 

■;r<-  ••  r  <  . -pclr  to  secono  point 

:  -  i  ;  i .  T"i 

■  -  fl.\  i  r1’i 

1  1 

•T'  *s 

•  l.l  1  >  i  If  1  •.o’PF-i-VDirr  IVI'TFF) 

0  (>£Vf 

’  1 ; 

• 

•  Y''M  : 

•  *1  <;•?.« 

,Ti  1  ,o  •  i v:»  to  tv.o 

■-  .  'I 

. i.  f\  'i  h  r  -  i,*:  I'M. 

soo  ^ 

1  i 

:  \ 1  r  • 

t  :ii  v'.vi  r.  rp •>  i™.  fonts 
.Li'.  o.  '■  -  tamale-m:..' 

’•  ■:  dt  : 

'  0 

t.  r. 

■:  ».  i 

■  L  A  1  i  r 
LL  ■ .  li ; 
CL  6  Nil 

:  i  'Vo  ‘Mi*1;, 

<  i  ■"  *  i 

i  r ;•  . _  1 1" t ■  ; i  riT‘-;T-i-  .5)  ,5) 

(  -  1 .  r  •  •  '  r . ' i 

"  • .  :  !  . !  :ji  1 1 

1  1  i  ;  ;  1 

0  (.PROPS  CONI-tLriTIOil  COMPLETE 
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1 

2 

3 

4 

5 

6 


9 
10 
1 1 
12 

13 

14 

19 
16 
17 
13 
10 

20 
d  1 

an 
2-1 
26 
2‘? 
c  ■' 

C_  I- 
C  ? 

3,0 

31 

33 

3-1 


3;  3 

•II 

'12 

•13 

44 

-15 

46 

47 
42 

49 

50 

51 


5-1 
55 
5  b 
67 
67 


1  MRLEV1  V0PTXI1  FTP  IVCCA  0011  HOOP 

SUFPOI  IT  I  HE  PFCALL 

0  EL'ERyUTIPE  F.KChLL  ALLAUS  THE  USER  TO  RE*  ALL  0  I10P  r"OH  DI5K 
C  VI.i  A  PEPU  0  ‘  IE'  5  ELECT  m  VEF.-.ION  UITH  VPF  PUMEEF  TOD.  IT 
C  WILL  PFAIJ  A  r hTH  IF  OPE  EXISTS  AND  DISPLAY  SIGOIFICAOT  FoIPT 

COMMON  /AHUM'  Tiri.FiKlRO) 

C'3>!  It  1C-:  I  /PuSTEFv  IILT «  S-V.’O  j 
coiinop  'mi  tv  iAiri  iai .  iefp 

COMMON  /D1SP  Il'FL'" -10  TO1  , t  trRKRC  12) 

COMMON  /FyUI EX  IF,  THU '35) 

COP POP  /FLOGS/  LtlOPLO)  ,F'V.PT(9)  ,LSUCH(3) ,  IFL0U(5) 

C  ALL  G I P  U  I DF  L .  *S0».'0 . 1  ATT ,  I  EF.'R  1 
CALL  SETUP 
CALL  TORPSGi:  10) 

CALL  I  Sho  ( 9 ) 

LI  IDEE  ( 1 )  =  1 

C  DISPLAY  MaR  OPTIONS 

C  CHECK  IP  OPLY  OPE  PAP  EXISTS,  IF  SO  PO  SELECTION  TAKES  PLACE 
tlllOPT  =  It  IFOR  PC  1 ) 

IF  (MPOPT  .PE.  1)  GO  TO  £S 
PmP  ■=  ] 

GO  TO  30 

25  CALL  CPTHPUC6) 

Call  SELECT  A l!V OP T, MAP) 

IF  (Mh°  ,F0.  0)  Go  TO  35 
cr  ll  F-.-.r-.r 

30  CALL  IHSEP  (HAP.O) 

Ci  ’LL  I  !  _  71 

It  *i-  ORf-K  3- 1  =  f  li  TP 
IPOS  -  ESHIhP-I 

IP  ( IIJFOFi  H  JFC'S)  .  LE  .  1)  GO  TO  SO 
C  USE  poorer  P-.r.  T'  Tin  IT  VFT  '  TOM 


r,  LL  c:  i  !  :  1.1 1  A  i 

Ci  ‘  .L  iv  i  P  i  1  P'-M  '•  O'  i 

C  hLL  S IP  Ll  I  i  1  O'  ■ .  i  it I F  AS  > .  1. 1 0+MAP  ,24,1  VEP'3 ) 

IP  (I'.LP:  .LF.  O'i  J.YLF'3  -  1 
CALL  It  'SEN  (PhP,  IVEPb) 

C  FUT  PATH  ItlTO  IFhTH  ARRAY  FROM  PDF 
I  F  TP  ^  I  ILF  (  3 )  - 1 
DO  20  .1-1,65 

I Path i J)=PDF( IPTP+J) 

20  C OPT 1 PUS 

IP  aPuTHfl)  .EO.  O'i  GO  TO  4S 

C  DRAM  PATH  OP  571  IDOLS  OVER  LAUNCH,  TARGET  AND  RECOVERY 
35  IP  PC  O'  .50.  0)  CALL  DSPSCH 
CALL  P!'  TH 
CALL  GEI IT  (310) 

CALL  GMJT  C  1,100,  I  PATH1  -I ) ,  0) 

Cf  .L  C’F  UT  i  2,11 0 .  I  PATH  ( 5  > ,  0 ) 

IFuS  =  IPATI-K2)  ‘A -2 


-128- 


G£  2 

IF LEVI  ''OPT  MI  I 

FTH  IVCC-) 

rr  1 1  H"i 

n  t  ■ 

l .  "  ■ ■ 

i  '  >r 

,l_  ’  l .  i  1  ‘ .  1 1  ■  • .  . 1  l  ■_ 
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r  i.  i.O) 

1.  .  J  »  ! 

i*-:. 

C  ’ 

!.  i.r.  i'  r  .i  i 

.1.  ■  r  r  !  •  Tl  '  Dll'  I'V 

1.  .Ill'  :  i 

.L  ■  :: 

.l  'll  i :■  i 1  ' 

l  (  '  .  ;  1  1  ‘ ; '  t  1 

'j.f'n 

*.-«  {  *  ( o  * 

»  c » 

-IS  0.- 

i : ' 

x  cu.-i 

r 

t  T  1  i >  J .  '■  1  i  >  -■  I’  '! 

V-i  GO  •’ 

•  <  : 

l  T'"1: 1 1 
i.  n  •  •  "j 

'If- 
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I..  cko  :• 

i  un  i 
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0012  HOURS 


1 

2 

3 

‘1  C 

s  c 
i?  c 

7  C 

8 

9  C 

10  C 

11 
12 

1  3  C 

14 
18 
16 

17  C 

15 

19 

20  C 

81 

c'P 

“i  n 

C.  -) 

24 

85 

86  C 

87 
83 
89 

30  C 

31  1 

-o 

33 

34 


!'■  C 
11 

«  33 


45 

4G 

47 

4.3 

49 

50 

51 
88 
tr  -> 


C 


2 

C 


SUBROUTINE  SELECT! OPTION, CHOICE) 

11 1PL1C IT  INTEGER  (A-C.E-Z) 

DATA  1  RED .  1ST  U  U ,  T  <  HI  10 , 1  GREET  00,1,8,7/ 

UNI  ROUTINE  ENmELES  USER  TO  SELECT  ONE  OF  A  LIST  OR  OPTIONS. 

in  i  option?  >.rf  Dr  rLuYEn  in  red  on  toe  left  side  or  the  screen. 

Mil  USER  I  if  iNJ  R  ULi  i‘i  LG  0  RVIMTING  CURLER'  THAT  FRLCEEI'S  THE  ROLEN 
mi  CHARACTERS  Of  THE  POINTED- AT  OPTION. 

*f!'T  OFTION  NUMBER  OR  NUMBERS  IN  LIST 

1 Itt  CHOICE  RELATIVE  POSITION  IN  LIST  OF  CHOSEN  OPTION 


TURN  ON  NEilU  AND  LIGHT  LANFS 

CALL  NENLMI 

CALL  LAMPS ( 0,0,0, 171 ) 

TTTt  POINTER  '  INC''  IS  0  AND  POINTS  TO  THE  FIRST  OPTION  IN  THE  LIST 
INC=0 

*:ttl  POSITION  THE  CURSOR  POINTER 
CALL  GEI  IT  1 1 1 1 
CALL  GR U  m , 1 CO , -3 99 , 0 ) 

C  ALL  GPUT  (2,110, 95', * ,  0 ) 

ChLL  GEOi  Kill 

Till  COLOP  THE  FIRST  ITEM  IN  THE  LIST  GREEN 
CALL  GKI  IT i"  111) 

CALL  CR'LOPf  I  GREEN) 

mi  POLL  THE  RUNO.  KEYBOARD  FOR  AN  ACCEPT/ REJECT 
CALL  CK  INK  KEY 'I 

IF ( KEY . HE . 0)G0T02 

rOJEGT  hTV  HIT 
II"  -TY-  : 

•••  • '  '  , ;  ■ ,  '  — -f- t .- v  -A 
'i'-y  ..'-i; 

C  0LC7  l.i  -T  T Til? )  DSP  AOOJN  AMD  FEFOSTTION  CURSOR 
C.-LL  C •  L'. :-•(  iRLD) 
r  ;  'LL  U'rJ  ;  r  '  1 1  ) 

CALL  GFUna,  110.Y.O) 

#-m  COLOR  HEN  1 1  EH  GREEN 
CALL  GEMTf  111  HII':  ' 

ChLL  COLCF'ICRLEIIi 
ChLL  DELAY (30) 

GO  TO  1 

IF (KEY. ME. 1 . AND. KEY. NE. 7) GO  TO  1 

fcCLKT  LEY  NIT 

r~,  •  -  "  ■  .  '  t-  ■- :  i 


f  M  1  GY  !4TT 

||i!  f ,v  ,  |  '  ,7'n  ;  Vip  '“.-O 
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SUBROUTINE  SELt  101' I  I0DE ) 

C  SELECT  NODE  SUE’ROUT  ]  I  IE 

C  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  HOVE  A  BLINKING  FIGURE 
C  AROUND  THE  DISPLAY  TO'  SELECT  A  NODE.  MHEN  THE  CUPSCR  GETS 
C  10  UNITS  OF  A  NC'L'E  THE  NODE  HILL  BLINK.  AS  THE  CURSOR  ILL 
C  NODE  STOPS  BLINKING.  I. 'HEN  A  NODE  IS  CHOSEN,  THE  NODE  IINABE 

COMMON  /ATT/  IATT d2)  ,  TERR 
COMMON  /ROUTE/  IPaTHiGS) 

COI  II ION  -  FLAGS/  LI  lODEf  9)  ,RVPT(9)  ,LSUCH(3) ,  IFL0U(5) 

Chll  tofmzg  c*n 

CALL  NESSi-'G  (2) 

I  SUCH  =  0 

C  SET  OFF  ''-'LL  BUT  THE  ACCEPT  LAI  IP 
CmLL  LAMPS (0.S.I6.12S) 

C  HO  DC  HI'.  CONTAINS  THE  MODE  NUMBER  OF  A  EL  INKING  NODE 
MODCMK  =  0 
LEECH  l  1 J  =  Fi'tLSE  . 

IEND  =  IFATHd) 

C  MOVE  CURSOR  TO  CURRENT  NODE 
CALL  GTF'ACKt  TV,  IS') 

CALL  GTF'ACK  (  V.  'OLD,  IVOLD) 

CALL  GENT (10) 

CALL  GFUT  U.IOO.L'.O) 

CmLL  GFUT  (2, 110. IV, 0) 

Chll  geo:  ic  io) 

C  SET  UP  C'l'CLE  TIMER  AND  CHECK  INTERRUPTS 
CmLL  GHLT 
CALL  GCVT(l) 

5  ImTT  (1)  -  0 
CmLL  GSTTfO  0) 

10  C-  UL  C >  IlirN  EV) 

f-  <y\‘  .ro,  -11  i*.T  TO  1.0 

IF  M  E,'  .CO,  tc,  A,'-  TO  -IS 
IF  'll','.'  .  i:".  1  '  O'  TO  SO 
C  M  C,  .FA.  i 2 1 1. ‘  LL  r-Ei.u.rr 
xr  ME'-,'  .ME.  7)  GO  TO  IS 
N.'i'E  -  0 
CALL  GE"F  ( ISO) 

CALL  TCRMSG  (£) 

GO  TO  SS 

15  IF  (KEY  .ME.  “10)  GO  TO  5 
C  CYCLE  TIMER  INTERRUPT! 

C  MOVE  CURSOR  AND  CHECK  TO  SEE  IF  ITS  CLOSE  TO  A  NODE 
CALL  GTRACK  (IN. TV) 

CALL  TOC LOS  < 1) OLD , IYOLD, IX, IV, 5) 

I SUCH  -  1 - I SUCH 
CALL  GENT (10) 

CALL  GFUT  d , ICO,  II  1,0) 

CALL  GFUT  (2, 110,  I'.'.O) 

IF  (I  SI.I'1 1 1  .  EO.  O)  GO  TO  16 
CALL  LuTLON  dY.IVI 
GO  TO  IS 
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5Q 

CO  C  RANGE  AND  DEAR  INC.  UPDATE 
Cl  16  IF  (.HOT.  LSUOHcm  GO  TO  IS 

62  CALL  Pril  iGE  (IM.IY) 

63  CALL  GU  iP  (1.7,1) 

6- 4 

SS  IS  DO  £0  NODE  -  1. 1  Flip 
65  K  =  61  HO DC -2 

67  IF  (  1hL3(  IPATH',K)-IX)-10)  19,19,20 

63  19  IF  (IAPS(IPATH(K-tl)-IY)  .LE.  10)  GO  TO  22 

69  20  CONTINUE 

70 

71  C  NOT  CLOSE  TO  A  NODE,  SET  NODE  TO  0  AND  CHECK  TO  SEE  IF  NODE  IS  FL INK I NO 

72  NODE  =  0 

73  IF  HIOD'-HK  ,E0.  0)  GO  TO  10 

7- 4  C  SET  OFF  CLINKING  NODE 

75  CALL  GLI  IP  (1,1.0) 

76  10  =  0 

77  GO  TO  -10 
-  7-3  C  SET  ON  BLINKING  NODE 

79  22  IC  =  1 

50  CALL  GENT (300) 

51  IF  (HOPCHK  .TIE.  0  .AND.  NODCHK  .ME.  NODE)  CALL  GPUT  ( I EL  130  3  0) 

52  CALL  GUiF'd, 1.1) 

53  CALL  GTFVLI'a.v,  IV) 

S-t  I  EL  -  6 1  NODE 

55  IF  (NODE  .EO.  1)  IEL'3 

56  40  CmLL  GENTtSOO) 

57  CALL  GPUT  i ILL, 130, 3, IC) 

S3  NODCHK  -  MODE 

E9  C.O  TO  10 

n  •'| 

;n.  c  RiV i'  •  i  r  co'i 

■  :  -IS  1 1,/'1.'  •  '<  i.  r  >  ('  :<  to 

'■"i  ro-D-'i 

!  IV  -  0 

ULi  '  i'U..  i  i  if  IGE  (IX,  IV) 

ag  ''A'  L  I : ■  -r  a  LTN 

97  '.i  XL  L’  .-.!  o ,  A:  J  G,  1271 

'3  ’  I'  «  .  LSI.. KIT'.  1 )  i  CALL  GLMP  (1,19,1) 

99  GO  TO  10 

100 

101  C  KEV  INTERRUPT! 

102  50  IF  (NODE  .EQ.  0)  GO  TO  5 

103  55  CALL  GHLT 

10-4  C*LL  GCVTCO' 

1  ,-%r-  ^  - 1  |  r > 

■ '  '■  7  '  .l  "  '  i  i  *■  i 

: 1  ■  ••  i..  '  :  :  •  i 

■  1  ■  ■ : .  v  .  •  ■ 

1. 1"  r.ii.m 

M  t 

r i  '  p;'  rr.  •  .  i_,  j  r.  •;  !  •  • 
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VORTXII  FTN  I V  ( G ) 


00 1G  POURS 


1 

2  C 

3  C 
-1  C 
S  C 
G 

7  C 
3  C 
9  C 

10  c 

11  c 

12  C 

13  C 

14 

15 

16 
17 
13 

19 

20 

21 

22  4 


2  3 
2-1 


SUBROUTINE  SELNUM  'MAY,  I  ENT,  IEL.MUMr  ER) 

SUBROUTINE  SELNUM  ALLOWS  THE  USER  TO  El  ITER  0  NUMBER  \  PON  THE 
NUMBER  PAD  Oil  THE  SPECIAL  FUNCTION  UNIT  -  IT  ALLOWS  UT '  TO 
FOUR  DIGITS  TO  EE  ENTERED  AMD  DISPLAYS  EACH  DIGIT  AS  EHTU-ED 
IN  A  SPECIFIED  LOCATION. 

PARAMETERS 

Ml-::  -  THE  MAVII IUI1  ALLOWABLE  NUMBER 

I  El  IT  -  ENTITY  UMEFE  NUMBER  IS  TO  BE  DISPLAYED. 

IEL  -  ELEMENT  IN  CHARACTER  AREA  WERE  NUMBER  ENDS  NJNITS 
POSITION'.  FOUR  CHARACTER  GRACES  MUST  IX  nVi-ILfiFLE. 
NUMBER  -  VALUE  OE  MUMPER  ENTERED  TO  BE  PE'IUPNED  TO  CALLING  FROG 
RETURNS  -9999  IF  MO  NUMBER  IS  DESIRED. 

DIMENSION  MO i  l'A  ,  JIITC-P 
COMMON  /’AT r '  1 1 Pi  T i  12) ,  1LFR 

DATA  1 10  .'N!  10 .  thl ,  11-12 ,  1H3 ,  1H4 , 1HS ,  1HG ,  1H7 , 1HS ,  1H9/ 

CALL  GENT  (I ENT) 

CALL  GEOM  ( I ENT) 

NUMBER  =  0 

CALL  LAMES  (7,7.7,132) 

DO  170  1 EEC  »  1,4 
IATTM  )  -  0 
CALL  GSTTfO.O) 


29  C  CHECK  ON  J.NTLPFUi-T! 

20  10  CALL  >: Kilir  HEY) 


31 

IF 

( 1  EY 

.  Do . 

-1)  GO  TO 

10 

->  -ji 

IF 

M  EY 

.  GT . 

EG 

)  G' 

9  TO 

10 

33 

IP 

1 1  EY 

.  EO . 

7^ 

GO 

TO  - 

100 

31 

ir 

'  !•  EY- 

)  30 

t ; 

200 

,  100 

-.-I. 

C  GET 

JUTE'" 

;p  ,  ,' 

IP 

'  t  ■  ’V 

rf 

100 

TP 
'  i  'T 

r  r  • 

“  1 

.■  ,'-r 

r. 

i 

TO 

1  10 

■  i 

.;  i 

110 

TP 

f'l  E' 

«'  .  GT 

.  '.(’) 

iV? 

TO 

120 

41 

IF 

( :•  L' 

,LT 

•  i  r, 

0 

TO 

10 

42 

INI 

•|  IK 

-O'  = 

1 1  -KF. 

V 

43 
-  .1 

GO 

TO 

ISO 

'1*1 

45 

120 

IF 

WE' 

»'  .GT 

.  13) 

GO 

TO 

120 

46 

IF 

( \  E' 

.  LT 

.  1  (:  ) 

GO 

TO 

10 

47 

INT 

'(  IDEC)  = 

22-KE 

V 

43 

GO 

TO 

ISO 

49 

50  130  INT ( J  DEC )  =  33-  KEY 

51 

S3  C  DISPLAY  DIGIT  RIGHT  JUSTIFIED 

53  ISO  DO  170  K-J  .  TR'. 

54  CnLL  GLUT'  J  EL-i  2-K ,  90 ,  NO  ( I  NT  ( IBEC-K+ 1 )  + 1 ) ,  0 ) 

55  170  CONTI!  r. IE 

EG  CALL  CL!  IP  (1.0  1) 

57  CALL  CLIIP  (111) 

S3  ISO  CONTINUE 
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C  1  "i  l  l"  '  1  1  " 

■■  ji in.; : 

:  T 

VO  i  ;■ r  >r ::  i 

-  ■  ■  '  3 

7.  i 

•Ir.’  1..  C’ 

j ■; ■  '  i  ,-i 

>  <■' 

'  1 1 

i  ,  i  ur  i  i 

0  !  P. 

.  ■  ::  co; '  1 1  .■  [T 

i  ••  i  r.\  ;  i. 

l  If 

0016 
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PACE 


1 


NRLEVI 


VOPTMII  FTN  IV O') 


00 l G  HOURS 


1 

a 

3 

•t 

s 

6 


SUFPOUTIHE  SETUP 

THIS  POUT  I  HE  SET?  UP  TIC  BOPDER  <V*D  CHARACTER  AREAS  POP  THE  1C?*J 
CANNON  /ATT/  IhTT(12)  .  ItPR 

CANNON  .  T LOGS'  LHO'.LO)  ,R:-:FT(9),LSUCH(3)  ,  IFL0UC5) 

dii  cl  no:  i  nui  ircFi  u:n 

II  ITr.GLP  El  HIT  T 

DATA  I  ’I  y?  /.I  HO,  111]  .  1H2.  1H3,  1144. 1H5, 1HS,  1H7, 1H3,  IP?/ 

DATA  I  FED  IVLI.OU,  TGFNG,  lGPEEM/O,  1,2,3/ 


10 

C 

SET  UP  E 

AT  L  LR 

11 

OL.L 

G»: '..i.i  02,0,0) 

12 

ChLL 

C.rui  13, 17  3,2. 

3) 

13 

CAUL 

CvLC-PC  IATj,'  ) 

M 

CALL 

GFUTiS,  17-10,0 

,  1  ) 

15 

CAUL 

CT  LIT  ( 5 ,  S 1 ,  KV 

3 , 0) 

16 

CALL 

GFUT  * ,52,  k  :: 

■:  O) 

17 

u  L-L 

GFUT  >.3,51  - !  A 

53 . 0 ) 

IS 

ChLL 

C.MJTC9, 52,  -10 

13,0) 

19 

20 

C 

SET  UP  TF’i  (CL  DOLL  CUPS 

:-R  III  ENT  ITS' 

21 

ChLL 

GIEGC10  0,0) 

— * **) 

C.~ 

CALL 

AA'L'.'P  ■' IYLLO'-O 

23 

CALL 

GLUT  (S,  17-10, 

0 ,  1 ) 

cl*} 

ChLL 

GPUT '.5.  ICAO,  t. 

3,0) 

25 

CALL 

GPUT  (7,71.15 

,  6) 

O'LL 

GFUT  (S, 5 1,-7 

> , 0 ) 

rl  ? 

CALL 

GPl.ir  (9,70.15 

.  is.) 

cl  -V 

CALL 

GPUT  t 10,52,- 

30,0) 

29 

ChLL 

GFUT  ( 1 J  . 72 , 1 

5,0; 

30 

CALL 

GEA'F  ( 10 ) 

3.1 

c 

LET  UP  lO  III  CULL  OP 

AS  ENTITY  11 

ChLL 

Gl'PGCll  .0,0.' 

3-1 

C  -I  L 

GF'  3(1 1) 

w‘ 

Cl  LL 

O  ' 

rr ;  t»'3.  i 

r  ’  i  *  *  i  f  r  ’  !  ''  !  » 

i.  L 

i  i 

V  .  .  ,  Jt 

»  *1 

M  • 

“n 

r  -:LL 

G’  'JT f 7 , 1 

.  *V* 

'll 

c 

SET  UP  CHARACTER  hTP.A 

3 

'13 

DO  1C 

1-0,10 

•H 

TEI  IT  =  J  10  H 

•15 

] 

*>'=1000-5011 

c 

ALL  GE.’EG'  If- 1  IT 

,-330, IV) 

•17 

c 

ALL  C.FA'F  C I L- 1 1 F 

1 

'13 

l" 

mU.«  CCLC'}*’ 1  1H 

tl) 

.19 

l" 

AiLL  A.F'UTi  5  ,  17 

"0,1,1) 

SO 

CALL  GCHhiIEIIT 

,5,0. 1,25) 

51 

10 

COUTII  I'JE 

cp 

qp 

CAiLL 

GET  IT  (  !  10  ' 

ET 

CALL 

G!  Ul  i  -1,  13 0.2. 

1 ) 

t:,q 

CALL 

A.'  Ul  i  -1,  1  ,  5 , 

;i 

55 

CALL 

Gn.iri.-i,  i-io.o . 

i 1 

57 

CALL 

A  r  UT 1 72, 100. 

339,0) 

53 

CAUL 

GPUT '  3:3 ,110,1 

700 , 0 ) 
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rnjc  HOUR 


COLL 

iVUTt  1 1-1, 50,  A) 

60 
61 
c  ?. 

C  ALL 

GCHhi  110. 35.0,2,25) 

C 

SET  UP  LEO,  SF-EED.0-.lt  ThLLE  IH  ENTITIES  150-160 

DO  S’. 

1  1  -1  ,11 

6-1 

I“3  3» 

:>  k - 1 .  is 

♦nS 

HSi  )T--=  i-;ri ' 

Cm).  L  G7L>N  IFI  IT  .  1023,  1C00-30:.'K ) 

»37 

l 

'hM  .  I.'.fi  (  II  f  IT  1 

i 

mLL  GLUT  i.O  10-1. SO, 0) 

6  J 

*; 

I  LL  GO  :o<  I El  IT  ,7,0, 1.21) 

70 

71 
">■;) 

.0 

coi  itii  ;us 

(‘<L  L 

CISC  1 1  (i  50  7 ) 

7 

I.F'ITC  . 15. LOGO ’ 

r  i 

1050  F  .I-'!  ViT  6Ui:.  SPEED  ALTITUDE'  ) 

C 

SET  LT  l 

an  i'j  'mi  i  u.;u  Kuxmb  rw  khfmi  rud 

If  iLL 

CitT.G  1  17\0, 0* 

-'S' 

Liu'rvp  re.  j:  •  >> 

73* 

0  ALL 

Gr- LIT  to.  176  >.0,0) 

CALL 

O  UT  (.7,73.0.0) 

c  i 

c 

SET  UP  ' 

nr  OF  SOLD)  ;iLrS)»GE  AREA  IN  ISO 

rpp 

CALL 

G! E  ,  ( 100,0. 1023) 

•  LL 

OO  F  U  S  '. 

<  r.r 

0.  LL 

o'- or  (?. 1) 

,r 

Cf-l.L 

r.» (j.P  «  IVU.vl’i 

COLL 

OMIT  -  >:  IN  7.0,0) 

s 

ChLL 

C,.. !  1; -i  ( !  ,  7 , 0 .2,93) 

p 

CuLL 

.NJJT  >50.  JO-1. -KvS.Oj 

77 

cull 

in  '..IT  ( E-7 ,  j  1  •  1 ,  SO ,  0 ' 

Q1 

ChLL 

i'.C  I  Im  (  1  6  ) .  5?  . p. ,  -IS) 

OP 

Ci-I.L 

on  IT  1  107,  s 0-1. -100.2, O' 

r'  1 

O'.'.L 
i  ■  ’  1 . 

■7  ur  f  i  *. ' 7  :  *  .m-TmV' 

i  •  ‘  »  ;  •  1  i 

c 

SET  IS'  ( 

. -  ■■  .7  7.i  IT  I  TV  N’. 

»  y  - 

C-  LL 

■  V,  i  pi  ,  '  .Vi 

.  1  L 

■  ■  -  i  i.  1 1  > 

'J  J 

i: 1 1. 

i.H1  i  (.3.1  1) 

1") 

c.  ll 

6  •(.■‘■F  ('171  I."'  1  . 

10.1 

C .  LL 

O'. 1  l-i  t  JO  1 .0.0,2,50) 

102 

COLL 

Cl  UT  (SO . 100,0,0) 

103 

COLL 

,:,I--|.IT  c S' 7'. .  1  to.  -100,0) 

100 

COLL 

C,F IJT  <59, 100,3,01 

105 

COLL 

GC Hi)  i’ISl  ,60. 0,2,50) 

106 

COLL 

O- IJT  ( 1 11 ,  13:0,3,0) 

107 

COLL 

GF-UT  (112  lvO .0,0) 

103 

COLL 

or  UT  (.113,110,-150,0) 

109 

COLL 

GUI  O  ( 191  .  '  1  i .  0,3,50'. 

lio 

O  LL 

iV.1T  i  EC  I1'--'.  A  0) 

111 

CO'  L 

i.uur  f  i c g ,  ’  to . -36  i,o) 

112 

Ci'iLL 

GLUT  i  1 6-7,  1  5.0) 

1)3 

COLL 

iV'UT  1 1 C7.  !•!•'.(&.  1  ' 

111 

COLL 

GCUA  ( 191  ,  )(■'-•.  0.2,50) 

115 

116 

c 

SET  UP  LONGITUDE  01  ID  LATITUDE  DISPLAY  IN  ENTITY 

PAGE 

3 

N 

-LEV 

I 

VOF'T  'I  I 

117 

COLL  Gl 

r  1  ^ 

t  M 

7,1 

TH,  HO.i 

1 13 

C !  LL  ',l 

1  ir 

1  l'O 

) 

1  H 

i.i-l.l  a 

ur 

l  ^  . 

10  1 

.  3*J  ,V  ) 

1.-0 

C  uLL  O'. 

?  ’l  1 

*  r-j 

'  ’’ 

.0, 1,5) 

131 

CO  HE  1 

1. 1 

.  IL 

i 

175 

ICO 

i  ■.  ;-mgt 

>  Livnrur 

~  ) 

133 

ChLL  O'r 

ur 

(  1  G 

10 

1  -115  0) 

12-1 

C>  LL  cc 

ur 

(  17 

.  11 

L-E3.0  ' 

135 

GmlL  G'. 

i  :a 

K  1  'j 

7.  1 

.o  1  ,!) 

1 5G 

CtT.L  Or 

UT 

1.  2' 

tOl\ 

.  !  1  C.' .  0  : 

137 

tO-.LL  Cv. 

i  *  -i 

i  13 

■' .  F: 

4  ;'t  .1  4  > 

137 

CALL  C-.f 

UT 

(,7.J 

(/.  t 

.  il'U.O) 

130 

CmLL  GF 

LIT 

( i->: 

] 

i. -1-10,0) 

130 

CmLL  O' 

IJT 

i  31 

,  n 

1,-33.,  O  ' 

131 

Ct  L.L  G1. 

1  G 

l  *  r* 

5.0, 1.3) 

173 

ur-'iTE 

1  rr 

.  130 

i 

133 

120 

rcr  1 10T 

l 

L'.'l  1  : 

ITU 

XT  •  > 

13  1 

CmLL  GF 

UT 

(•!,-. 

to 

1.-1 50 . 0 ) 

135 

r  hLL  gi 

ur 

( -13- 

.  1  1 

*r  ,  -3F ,  0 ) 

135 

CmLL  GC 

1  In 

l  i  - 

‘0  , 4 

; ,  o ,  l ,  •  i  > 

1 37 

GC  l.L  Gf 

UT 

l  -1”? 

.  30 

.  it  tn.o  i 

1  3  3 

CALL  O' 

:  it 

'  .1 

?(  r 

0,0.  1  ,-n 

133 

OhLL  G! 

'LIT 

i  55 

,  Il'U.O) 

HO 

HI 

C 

_,ET  L'p  PhPH 

ENTITY 

III  300 

1-15 

Ct  LL  O' 

o. 

» '•  »? 

.  0) 

H3 

CALL  01 

. ,  F 

(31 

0  * 

Ml 

L‘  /■ .  I  'L  ( c 

i 

1  -15 

CmLL  1' 

I.  If' 

TH 

M3 

Li  DDE  (S't“ 

0 

oo  i<?  ho  ups 


l-r 

M3  C  FI  GUT  TO  CIPCUUV.PIFF  LAUNCH  NODE  IN  ENTITY  310. 

1  ■  jci  CALL  GFL'i.i  i  3 1  0  .  0 , 0  i 

MO  '3  .'_L  i.V.vr-  (31  '■> 
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